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95 
<»6 
97 


1.0 


PROGRAM ABSTRACT 


98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
HI 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 




Th"s program tests out KDJU-DA CPU board, 'nclud'oo the Jll ch p set, 
on-board MEMORY, on-board ROM's, serai 1 ne un't, Ine ttne clocks, 
and the Bus Arbitration. 




The KDJll-DA is a PDP-11 CPU that ncorporates the Jll chip set as the 
heart of the processor. It is a quad hcght Q22 bus module. It has 
512 KB of on-board memory. The memory has parity detection and is 
located on 18 256k x 1 RAM chips. There is a memory CSR to help 
determine parity errors. 




The KDJll-DA also has 2 on-board ROM's. They contain the self-test 
and the boot codes. 




The Serial L"ne Unit is 'mplemented thru 2 Dlart chips which provde 
the standard console interface to the CPU. It has internal loop back 
mode and has a user selectable baud rate of 300 to 38400 baud. 




The line time clock functions at^ imnl^m^nf'pH ueinn ^Ka RPUPIUT 1 Iaa 




As a program option the Q22BE module s used to test ver fy the nter 
rupt arbitration of the KDJll-OA , DMA protocol, and PMG counter. 




further deta' Is are exprcitly menfoned test by test in the DESIGN 
DESCRIPTION section * 3.0 







I 



X 
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127 

128 2.0 PROGRAMMING CONVENTIONS 

129 

130 

|31 2.1 Itnplefflentat i on Language 



SEQ 0005 



\l} The POP/11 Assembly Language has been used to wr'te ths CPU 

d agnost c 

X w J 

|-36 2.2 Program Generat'on 

11 Ih'S^Diaonostic is developed and assembled on a VAX us'ng 

•39 the PDP/Il mode "MCR MAC" and the "ORION. MLB" libraryas the 

?9 follow ng: 

41 $ MCR MAC 

J2 MAO NAME. NAME/-SP=ORION. MLB/ML, NAME. MAC/DS:GBL 

['"slk NAME. OBJ would be transfered to an XXDP* media from 

J5 the VAX by using the "XDT" or "SHARON" utility. 

47 

48 2.3 Hardware Requirements 

150 To run successfully the diagnostic needs: 

152 A. KOJll-DA CPU module 

153 B. console terminal 
154 

In DVT, and stage one manufacturing (module assembly) the Q22 

Ijo Bus exerciser rs needed to check Q22 Bus logic. 

158 2.4 Loading and Starting Procedures 

160 start-up this program: 
161 

162 1. Boot XXDP+ 
163 

164 2. Type "R NAME", where name is the name of the BIN or BIC 

163 file for this program. 
166 

167 The starting address of the program is 200. 

168 Note: if try" no to restart the program in an arbitrary place 
IgZ ?^5^cy5'-I °" ^^^^^ follow 'ng reg'sters should be set up: 

i7777572=0 to disable memmory management 

17? 

173 2.5 Spec'al Environments 
174 

1^5 The program is APT compatible. It can also be run under the UFD 

|i2 monitor In those cases none of the standard error printouts 

t,o SSS*^"*- Refc" to corresponding documents on running procedures in 

178 APT and under UFD mon'tor. ^ 

180 

131 2.6 Program Opfons 
182 

183 The Q2? Bus Exerc'ser "s ut Tzed f it s present in the 



Gi 
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184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 



SEQ 0006 



2.7 



2.8 



system and the, d' agnostic is rot runnino n UFO mode. 

Standard capab'l'ties of looping on test and on error arc prov'ded, 



SWITCH REGISTER SELECTION: 
BIT NUMBER 
15 
14 
13 
12 
11 
10 

9 

8 

7 

6 

5-0 



Execut'on Times 



USE 

HALT ON ERROR 

LOOP ON PRESENT TEST 

INHIBIT ERROR TYPEOUTS 

ENABLE TEST TRACING 

INHIBIT ITERATIONS 

BELL ON ERROR 

LOOP ON ERROR 

LOOP ON TEST IN SUR<5-0> 

INHIBIT THE CHECK PARITY TEST 

Not used 

Subtest number to loop on 

(BIT 8) 



Without check parity test, the diagnostic runs in 
seconds. With t, it takes about 2 minutes. 



under 20 



Error Information 



In the case of errors, a failing PC and test numbers are given, 
Where it is possible, expected and receved data are given. 
For an exan^Ie, see sect on 2.9 . 



2.9 Examples 



After booting XXOP* and starting the program, the following 
Mill appear on the terminal: 



* KDJU-OA CPU DIAGNOSTIC 
SWR = XXXXXX NEW = 



COKDDAO * 



where XXXXXX correspond tc present software switch register 
setting. 

After "NEW" an operator can do one of the follow 'no: 

1) type in a new software switch register setting Followed 

by carrioe return or 

2 J just type in carriage return "n which case the software 
register will remain unchanged. 

Example of error printout: 

ERROR DOING Q22BE INTERRUPTS 



i 
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SEQ 0007 



241 
242 
243 
244 
245 



Note: 



TEST ERROR ADDRESS ADDRESS 

# PC <21-16> <15-0> 

27 105620 66600 000000 

th s may not correspond to the actual Program Counter, 
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SEQ 0008 



247 

248 3.0 PROGRAM DESCRIPTION 

249 

250 

|51 3.1 Jll CODE 

253 This port" on of the code tests out the Jll chp set. It s broken 

if?to 3 pieces: CPU tests, wh'ch verify different nstructions in 
different modes and different trap condifons; MMU tests, which 

256 verify different functions of MMU; and FFP tests, which do 

^ji different floating point instruct ons. 

259 This portion of the code have been written in close relationship 

§60 with the Jll microcode. Therefore, even though not all possible 

^61 instructions in all possible addressing mode have been tested, an 

t6c attempt has been made to exercise all of the microcode. 

264 Most of the CPU diagnostic tests have been taken from the KDJll-B 

263 Cluster diagnostic and has not been rewritten due to similarities. 

c66 

267 

268 

269 

270 

271 3.2 NATIVE REGISTER 

272 

273 

274 

275 TEST - NATIVE REGISTER 

276 

277 NATIVE REGISTER TEST 

278 

279 This test checks out the native register's ex i stance and it's 

2o0 various bits. 

281 

282 BGNTST 

283 > Set up timeout vector PC to TIMOUT 

284 ) Set up timeout vector PSW to 7 

285 } Read the Native register 

286 > Check out the bootstrap switch as read only 

287 > Check out the module functional revision as read only 

288 } Check out that the self -test enable bit works 

289 } Check out he ndicators (i.e LEDS) 

290 ENDTST 
291 

292 TIMOUT: Clean stack 

293 Error NATIVE register timed out 
294 

295 
296 



Ji 
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298 

299 3.3 MAINTENANCE REGISTER 

300 

301 

302 

303 TEST - MAINTENANCE REGISTER TEST 

304 

305 MAINTENANCE REGISTER TEST 

306 THIS TEST WILL ADDRESS MAINTENANCE REGISTER AND CHECK BITS 

307 7 4 TO BE 0010. 2-1 TO BE 10. AND READ BITS 10-08, 03. 00 

308 FOR FUTURE USE. THOSE BITS ftEPRESENT THE FOLLOWING sIgNALS: 

309 MULTIPROCESSOR SLAVE. UNIBUS SYSTEM. FPA AVAILABLE. HALT/TRAP 

310 OPTION, AND AC POWER 0<AY. 

311 ROUTINE TEST 

312 IF MAINT. REG. BITS <7-4> NE 0010 OR <2-l> NE 10 THEN 

313 . . ERROR 

314 . ENDIF 

315 . READ MAINT. REG. BITS <10-08,03.00> 

316 CNDROUTINE 
317 

318 
319 



<i 
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SEQ 0010 



321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

m 

365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 



3.4 KDJll-DA ON BOARD MEMORY 

The KDJll-DA has on board memopy of 512 Kbytes 
parity, fixed start at 0. 



block mode, with 



The KDJU-DA board uses 256K x 1 ch"ps which allows us to use two 
patterns per RAM only. 



Our memory d' agnostic starts wth testing the data path using 
pattern: 6. 177777. 177400, . 170360. 007417, 052525, 125252. Th 



^^this 

test s check'ng the accessibiity'of each' address and'an'error will 
flag if memory traps. The third test is to check the memory registers 
specific to the KDJll-DA. Fourth, is the short and stuck on bits test 
flbA$b.f1J,ll,*«st every single bit 0/1 for all addresses. The KNAIZUK 
HARTMANN algorithm which divides the memory into sections of three is 
used in test five as a quick verify of all stuck at faults in the data 
and addressing. Test six checks the parity detect logic of all memory 
locat ons on the KDJll-DA. ' 
You can refer to this section for more details. 



TEST - KDJll-DA DATA PATHS 
DATA PATH TEST 

Ths test checks out the data and address paths on the KDJll-D 
Board. The patterns used will be: 

0 

177777 
177400 
170360 
007417 
052525 
125252 

BGNTST 

Set Timeout trap to TIMOUT 
Set timeout priority to 7 
Read location 0 
FOR pattern := first to last 
Write pattern 
Read pattern 

IF Dattern read <> Pattern Written THEN 

, ERROR 
) ENDFOR 
ENDTST 



TEST - MEMORY ACCESSABILITY 
ACCESSIBILITY TEST 

This test will check the access "bil ity o* each address of memory 
on the KDJll-D Board. IF a memory address traps out then an error 
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SEQ 0011 



378 Niii be flagged. A side effect of this test should be that all memory 

379 IS cleared 
380 

381 BGNTST 

382 > Set timeout trap to TIMOUT 

383 } Set timeout priority to 7 

384 J For MSB.Address := 200000 to 1777777 DO 

385 > Contents of address := 0 

386 > Go to the next test 

387 > 

388 jTIMOUT: 

389 } Error Address should not have timed out 

390 ENDTST 
391 

392 
393 

394 TEST MEMORY ERROR REGISTER 

395 

396 MEMORY ERROR REGISTER 

397 

398 This test Nill check the MEMORY ERROR REGISTER on the KDJll-D 

399 Board. 
400 

401 BGNTST 

402 } Setup timeout VECTOR PC to TIMOUT 

403 ) Setup timeout VECTOR Priority to 7 

404 } Setup Parity abort VECTOR to PARINl 

405 ) Setup Parity abort VECTOR Priority to 7 

406 ) Do a bus reset 

407 } Read the Memory Error Register (17772100) 

408 } Make sure that the register bits are in the right state 

409 ) Check all R/W bits 

410 ENDTST 
411 

412 
413 

414 TEST - DATA SHORTS AND STUCK AT BITS 

415 

416 DATA SHORTS AND STUCK AT BITS TEST 

417 

418 Th s test will check the DATA Rams ''or Data shorts and stuck at bits. 

419 Testing occurs as below: 
420 

421 1, A memory location is checked to be set to 0 

422 2. IF NOT 6 error 

423 3. The location is complemented 

424 4. IF contents NOT -1 error 

425 5. This is repeated for all addresses 

426 6. Steps 1-5 are done from location 1777777 to 0 
427 

428 Note: The KDJll-DA board uses 256k X 1 chips, This allows us to 

429 use only 2 patterns per RAM. IF one bits s shorted to 

430 another we w'll detect this when we read for the initial state. 

431 J' it has changed from the expected state then chances are that 

432 the bits are snorted together. 
433 

434 A side effect of ths test should be that memory 's cleared. 



Mi 
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SEQ 0012 



435 

436 BGNTST 

437 > FOR MSB.Address := 0 to 1777776 DO BY 2 

438 } Clear Address 

439 ) If Contents <> 0 THEN 

440 } ERROR in memory 

441 } Complement the Contents of Address 

442 } IF contents <> -1 THEN 

443 ) ERROR in memory 

444 } ENDFOR 

445 } FOR MSB Address := 1777776 DOUNTO 0 DO BY 2 

446 } IF contents <> -1 THEN 

447 > ERROR in memory 

448 ) Complement the Contents of Address 

449 ) IF contents <> 0 THEN 

450 ) ERROR in memory 

451 } ENDFOR 

452 ENDTST 
453 

454 
455 

456 TEST - QUICK VERIFY DATA AND AORESSING TEST 
457 

458 UNIQUE ADDRESSING TEST 
459 

460 This test will check the data and addressing of the memories. 

461 It uses the KNAIZUK HARTMANN QUICK VERIFY TRAM TEST ALGORITHM. 

462 This algorithm Hill test memory for all stuck at faults in the 

463 data and addressing 
464 

465 Memory is split up into sections of 3. 

466 I.E. 6.1.2 - 3.4.5 - 6.7.10 ... 
467 

468 Testing works as follows. 
469 

470 1. Urite a 0 into the 2nd and 3rd address of all groups 

471 write a -1 into the 1st address of all groups 

472 2. make sure that the 2nd address of all groups contain 0 

473 3. Write a -1 into the 2nd address of all groups 

474 4. Make sure that the 3rd address of all groups contain 0 

475 5. Make sure that the 1st and 2nd address of all groups 

476 contain -1 

477 6. Write a 0 into the 1st address of all groups 

478 7. Make sure that the 1st address of all groups contain 0 
4 ■'9 8. Write a -1 into the 3rd address of all groups 

480 9. Make sure that the 3rd address of all groups contain -1 

481 

482 

483 

484 

485 TEST CHECK PARITY DETECT LOGIC AND RAMS 
486 

487 CHECK PARITY DETECT LOGIC 
488 

439 This test will check out the parity detect on log'c on the KOJU-DA 

490 board. We w'll write wrong parity to all locations and then we will 

491 Expect the a parity trap on a read. 
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SEQ 0013 



492 

493 BGNTST 

494 } Set up Parity Vector (114) To PARINT 

495 J Enable Write Bad parity (Set bit 2 in MER (17772100)) 

496 ) Clear all of memory 

497 ) Read f rst location written to 

498 > IF Party Abort Occurs THEN 

499 ) Error There should be no Parity Aborts when disabled 

500 > Enable Parity Error (Set Bit 0 n MER (17772100) 

501 } FOR First.Address to Last.address DO 

502 } BEGIN 

503 ) } READ Address 

504 > > NOP 

505 > } IF No Interrupt THEN 

506 ) > Error Didn't Detect Bad parity 

507 ; J ELSE 

508 ) ) Clear the interrupt flag 

509 ) ) Read the MER and make sure the obtained address is the correct one 

510 > ENDFOR 

511 } 

512 j PARIf^: 

513 ) Fltg that an interrupt occured 

514 ) RTr 

515 ENDTST 
516 

517 
518 
519 
520 
521 
522 
523 

524 3.5 ON- BOARD ROfl CODE 

525 

526 The KOJll-OA Native Firmware resides in a 2-16Kx8 EPROM's which 

527 are phrsically located on the KDJll-OA module. The Firmware has 

528 a monitor to accept user commands, auto sequence boot, console 

529 boot, power up self tests, extended self tests invoked via user 
5?0 intervention, and support a text of basic error messages in all 
551 supported eleven foreign languages including extended error 
532 messages in English. 

534 In this test we perform a sum test for the on Board ROM's which 

535 resides at address 17400000 - 17677777. 
536 

537 
538 

539 TEST 16 BIT ROM CHECKSUM TEST 

540 

541 ROM'S CHECKSUMS 

54*? 

543 16 BIT ROM TEST 

544 

545 BGNTST 

:46 } INIT MMU REGISTERS 

54 ~ > POINT PAGE 2 TO SE^F TEST 

548 } ENABLE SELF TEST BIT 
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SEQ 0014 



551 

i?4 

d55 
556 

55' 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 



READ FIRST 2 UORDS OF ROM 
GET EXPECTED CHECKSUM 

DO CALCULATE CHECKSUM 
> ADD UORD TO REGISTER 
] DO UNTIL ALL UOROS ADDED 
END CALCULATION 

NEGATE THE SUM OF UORDS 
IF NEG. SUM < > EXPECTED CHECKSUM 
ERROR 
ENDTST 



3.6 LINE TIME CLOCKS CODE 

The 1 ine tiffic clock control and status register las accessed at 
address 17777546. The EVENT interrupt thru vector 100 on "nterrupt 
request level 6 is received from the Q-bus signal BEVENT. 

Note: in UFD mode only functions corresponding to Boot Rom selection 
are checked. 

In this diagnostic we start with test#l: existence of the clock, 
test#2: interrupt priority max 5, test#3: resetting LKS. 

TEST - LTC BIT 7 

LTC BIT 7 TEST 

This test check for the ex i stance of the LTC register and it 
makes sure that the clock is ticking. 

BGNTST 

Set up timeout vector PC to TI'rIOUT 
Set up timeout vector PSW to 7 
Read the LTC CSR 
IF not timed OUT THEN 
FOR a set amount of time 
Check bit7 
IF BIT7 is set THEN 

Increment BIT7 set flag 
ELSE 

INCREMENT BIT7 Clear Flag 

ENDFOR 

IF either flag has not been set at all THEN 
Error Clock "j not f eking 
ENDTST 

TIMOUT: Clean stack 

Error LTC register tmed out 
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SEQ 0015 



606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

61"' 

618 

619 

620 

621 

622 

623 

624 

(25 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 



TEST - LKS INTERRUPT PRIORITY 

CHECK THAT LKS INTERRUPTS HAPPEN AT PRIORITY 5 CLEARING LKS<07> 
AND DON'T HAPPEN AT PRIORITY 6. 
ROUTINE TEST 

IF UFD AND LKS IS DISABLED THEN 
EXIT TEST 

ENDIF 

SET PRIORITY TO 5 
CLEAR INTERRUPT FLAG 
LET LKS<06>=*1 TENABLE INTERRUPTS) 
SET COUNTER TO WAIT FOR 3 INTERRUPTS 
REPEAT 

DECREMENT COUNTER 
UNTIL INTERRUPT FLAG EQ #3 OR COUNTER EQ #0 
CLEAR LKS<05> 
IF LKS<07> EQ #1 THEN 

ERROR (WAS NOT CLEARED ON INTERRUPT) 

ENDIF 

IF COUNTER LT TIME REQUIRED FOR 3 INTERRUPTS FOR 800HZ 
ERROR (INTERRUPTS NEVER'GO LOW) " ' 

ENDIF 

IF INTERRUPT FLAG LT *3 THEN 

ERROR (INTERRUPTS DON'T HAPPEN) 

ENDIF 

CLEAR INTERUPT FLAG 
WAIT FOR LKS<7>=1 
LET LKS<7>=0 
IF LKS<7> NE *0 THEN 

ERROR CLKS<7> NOT CLEARED 

ENDIF 

SET PRIORITY TO 6 

SET COUNTER TO 1 SLOW CLOCK INTERRUPT 
SET LKS<06> 
REPEAT 

DECREMENT COUNTER 
UNTIL COUNTER EQ #0 OR INTERRUPT FLAG NE *0 
IF INTERRUPT FLAG NE *0 THEN 

ERROR (INTERRUPT WAS AT WRONG PRIORITY) 

ENDIF 

RESTORE ORIGINAL PRIORITY 

ENDROUTINE 

ROUTINE LINE CLOCK INTERUPT 

INCREMENT INTERRUPT FLAG 
ENDROUTINE 



TEST RESETTING LKS 

RESETTING LKS(*) 

THIS TEST WILL PROVE THAT RESET INSTRUCTION CLEARS LKS<06>, 
ROUTINE TEST 

IF UFD AND LKS IS DISABLED THEN 
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SEQ 0016 



663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

666 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

^12 

713 

714 

■'15 

716 

"17 

718 

"19 



ENDIF 



EXIT TEST 

POINT LKS VECTOR 100 TO ERROR LKS ILLEGAL INTERRUPT 
SYNCHRONIZE LKS BY UAITING FOR 3 PULSES 
LET LKS<06>=#1 



EXECUTE "RESET" 
IF LKS<6> NE #0 THEN 
ERROK 

ENDIF 

IF ILLEGAL LINE.CLOCK.INTERRUPT NE 0 THEN 
ERROR 

ENDIF 
ENDROUTINE 

ROUTINE ERROR LKS ILLEGAL INTERRUPT 

FLAG ILLEGAL.LINEZCLOCK.INTERRUPT 

RETURN 



3.7 SERIAL LINE UNIT CODE 

The KDJll-da board has two Serial Line Unit that have to be tested. 

*t!* ?roce«sor halts it enters uODT and communicates over the 
SLUO at addresses 17777560 thru 17777566. They considered the console 
addresses by the CPU. SLUl is the General purpose Serial I/O and 
IS addressed at 17776500 thru 17776506 and SLUl does not have the halt 
on breake option. 

In this diagnostic we verify the functionality of the SLU chip 
utilizing the maintenance mode of the chip. All serial line unit 
tests: interrupt level, loop back capability, and transmitter 
receiver bits registers, are performed on SLUO and SLUl except the 
BREAK CONDITION and the OVERRUN CONDITION tested on SLUl only, becajse 
SLUO is used as the console . 



TEST - SERIAL LINE UNIT REGISTERS 
SERIAL LINE UNIT TEST(*) 

BCR<2-0> WILL BE READ TO FIND OUT BAUD RATE. SLU MILL BE PROG- 
RAMMED TO CHECK THE INTERRUPT LEVELS BY SETTING BIT<06> IN 
RCSR AND XMIT. LOOP BACK CAPABILITIES WILL BE TESTED BY SETTING 
TO 1 XCSR<02>. THE CLOCK INTERRUPT SUBROUTINE WILL BE 
USED TO RETURN TO THE EXECUTION OF THE DIAGNOSTICS. IF THE 
PROGRAM HANGS IN THE LOOP BACK MODE. 
ROUTINE TEST 

IF UFD AND CONSOLE NOT PRESENT 
GO TO TEST 22 

ENDIF 

IF BCR<07> EQ #0 THEN 
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SEQ 0017 



720 

41 

723 

^24 

725 

726 

72^ 

728 

729 

730 

731 

^32 

733 

■'34 

735 

736 

737 

"38 

739 

740 

"41 

742 

743 

744 

^45 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 



ENDIF ^^'^^ BCR<2-0> TO GET BAUD RATE 

LET 4=A0DRESS.0F.TIME0UT ROUTINE 
DO FOR RCSR.XCSR.RBUF.XBUP 

READ XRCSR.XCSr.RBUF.XBUF 
IF TIMEOUT FLAG NE #6 THEN 
ERROR 

ENDIF 

ENDDO 
ENDROUTINE 

ROUTINE TIMEOUT 

LET TIMEOUT FLAG=*1 
ENDROUTINE 



TEST XCSR BIT 7 

CHECK THAT XCSR < 07 > CAN BE 0 AND 1. 

XCSR <07> TRANSMITTER READY 

ROUTINE TEST 

WAIT FOR XCSR<0?>=*1 NO MORE THAN 200MSEC 
IF XCSR<07> NE #1 THEN 
ERROR 

ENDIF 

LET XBUF=*NULL 
WAIT FOR XCSR<07>=*1 
LET XBUF=*NULL 
IF XCSR<07> NE 0 THEN 
. ^ ^ ERROR (READY DIDN'T GO LOU) 
ENDIF 
ENDROUTINE 



TEST . RCSR BIT 7 AND XCSR BIT 2 

CHECK THAT RCSR<07> CAN BE 0 AND 1 AND THAT XCSR<02> WORKS PROPERLY. 

RCSR <07> RECEIVER DONE 
RCSR <02> MAINTENANCE 

ROUTINE TEST 
(CHECK RCSR<07> AND XCSR<07>) 
WAIT FOR XCSR<07>=#1 
LET XCSR<02>=/M (LOOP BACK MODE) 
LET XBUF=#125 

WAIT FOR RCSR<07>=#1 NO MORE THAN 200MSEC 
IF RCSR<07> NE *1 THEN 

ERROR (RCSR<07> DOES NOT BECOME 1 OR XCSR<02>D0ES NOT 
WORK) 

ENDIF 

IF RBUF NE #125 THEN 
ERROR 



COKDDAO KDJll-OA CLUSTER DIAG. MACRO V05.03 Tuesday 07-Jan-86 15:18 Page 8 8 



SEQ 0018 



777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

■'89 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 

801 

802 

803 

804 

805 

806 

807 

808 

809 

810 

«11 

812 

813 

814 

815 

816 

817 

818 

819 

820 

821 

822 

823 

824 

825 

826 

827 

628 

829 

830 

831 

832 

833 



ENDIF 

IF RCSR<07> NE #0 THEN 

ERROR CRCSR<07>D0ES NOT GO LOW) 

ENDIF 

LET XCSR<02>=#0 
ENDROUITNE 



TEST RESET AND XCSR<2!0> 

CHECK THAT RESET CLEARS XCSR<0!2>. 
ROUTINE TEST 
C CHECK RCSR<07> AND XCSR<07> AND RESET) 

LET XCSR<02.00>=#1 (LOOP BACK MODE) 
EXECUTE "RE^ET" 
IF XCSR<02!00> NE *0 THEN 
ERROR 

ENDIF 

LET XCSR<02>=*0 
ENDROUTINE 



TEST - RESET AND INTERRUPT ENABLE BITS 

CHECK THAT INTERRUPTS DON'T HAPPEN AT PRIORITY 4 AND THAT RESET 
CLEARS XCSR<06> AND RCSR<06>. 

RCSR <06> RECEIVER INTERRUPT ENABLE 
XCSR <06> TRANSMITTER INTERRUPT ENABLE 

ROUTINE TEST 

LET 60=*ADDRESS_OF .ILLEGAL INTERRUPT XRCSR 
LET 64=*A0DRESS.0F.ILLEGAL INTERRUPT'XRCSR 
SET PRIORITY TO 4 
LET XCSR<02>=*1 (LOOPBACK MODE) 
LET XCSR<06>=*1 (ENABLE TRANSMIT INTERRUPTS) 
LET RCSR<06>=#1 (ENABLE RECEIVE INTERRUPTS) 
WAIT FOR XCSR<07>=#1 (READY TO TRANSMIT) 
LET XBUF=#NULL (SEND A CHARACTER) 
WAIT FOR ILLEGAL INTERRUPTS (ABOUT 200MSEC) 
EXECUTE "RESET" 

IF XCSR<06> NE *0 OR RCSR<06> NE #0 OR XRCSR NE *0 THEN 
ERROR 

ENDIF 

RESTORE PRIORITY TO NORMAL 

ENDROUTINE 

ROUTINE ILLEGAL„INTERRUPT XRCSR 

INCREMERT XRCSR 
ENDROUTINE 



TEST - INTERRUPT PRIORITY FOR 3LU 
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SEQ 0019 



834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 

881 

882 

883 

884 

835 

836 

837 

838 

889 

890 



CHECK THAT INTERRUPTS HAPPEN AT PRIORITY 3 AND THAT THEY CLEAR 
RCSR<06> AND XCSR<06>. 

ROUTINE TEST 

LET 60«#A00RESS.0F .LEGAL .RINTERRUPT 
LET 64=#A0DRESS.0F .LEGAL XINTERRUPT 
lET XCSR<02>=#1 
SET PRIORITY TO #3 
WAIT FOR XINTERRUPT=#3 
IF XCSR<07> EQ #1 THEN 
ERROR 

ENDIF 

WAIT FOR RINTERRUPT=#3 
IF RCSR<07> EQ #0 THEN 
ERROR 

ENOIF 

LET XCSR<02>=#0 
SET PRIORIT> TO NORMAL 
ENDROUTINE 

ROUTINE LEGAL XINTERRUPT 

LET XBUF=*CHARACTER 

INCREMENT XINTERRUPT 
ENDROUTINE 

ROUTINE LEGAL RINTERRUPT 
READ RCSR 

INCREMENT RINTERRUPT 
ENDROUTINE 



TEST - BREAK CONDITION 

SLU n IS TESTED SINCE SLU *0 IS BEING USED AS THE CONSOLE 
CHECK THAT SENDING BREAK CAUSES FRAMING ERROR. 



RCSR 



<15> 
<13> 
<11> 



XCSR <00> 



ERROR 

FRAMING ERROR 
RECEIVED BREAK 

TRANSMIT BREAK 



ROUTINE TEST 

LET XCSR<02>=#1 
LET XCSR<00>=#1 
WAIT FOR RCSR<07>=#1 
IF RBUF<15!13!11> NE *1 THEN 

ERROR (ERROR. FRAMING ERROR. RECEIVE BREAK NE 1) 

ENDIF 

LET XCSR<00>=#0 
IF XCSR<00> NE *0 THEN 

ERROR (XCSR<00> DOES NOT GO LOW) 

ENOIF 

JAIT FOR XCSR<07>-n 

LET XBUF #NULL (SEND NUlL CHARACTER TO SEE ERROR CLEARED) 



h2 
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SEQ 0020 



891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 



WAIT FOR RCSR<07> #1 
IF RBUF<15!13!11> NE .^0 THEN 
ERROR 

ENDIF 

LET XCSR<00>=n 
EXECUTE "RESET" 
IF XCSR<00> NE #0 THEN 
ERROR 

ENDIF 

LET XCSR<02>=#0 
ENOROUTINE 



TEST OVERRUN CONDITION 

CHECK OVERRUN CONDITION 

RCSR <14> OVERRUN ERROR 

SLU #1 IS TESTED SINCE SLU #0 IS BEING USED AS THE CONSOLE 

ROUTINE TEST 

LET XCSR<02>=#1 CLOOPBACK MODE) 
WAIT FOR XCSR<07>=*1 
LET XBUF=«52 
WAIT FOR XCSR<07>"#1 

UAIT^F0r1cSR<07>^?J"^ ''"^^^^ CHARACTER) 

STALL FOR LOUEST BAUD RATE TO GET 2N0 CHARACTER 
IF LOU BYTE OF RBUF NE *125 THEN 

ERROR (1ST CHARACTER WASN'T OVERRUN) 

ENDIF 

IF RBUF<15!14> NE #1 THEN 
.^^^^ ERROR (NO OVERRUN BIT SET) 

WAIT FOR XCSR<07>«#1 
LET XBUF=#NULL 
WAIT FOR RCSR<07>=#1 
IF RBUF<15!14> NE #0 THEN 

. ERROR (WASN'T CLEARED ON THE NEXT CHARACTER RECEIVED) 

ENDIF 

LET XCSR<02>=#0 
ENDROUTINE 



3.8 LED'S TEST CODE 

This test will determine that the LED's situated on the CPU board 



12 
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SEQ 0021 



948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 



work correctly. This is done by sendng a delayed turn on and off 
to the LED's so we can see the r rotat onal pattern. 



TEST LED'S ON 
LED'S ON 

THIS TEST WILL INITIALIZE BDR TO CONTAIN A ROTATING PATTERN 
DISPLAYED IN LED'S. 

ROUTINE TEST 

WHILE A KEY NOT RECEIVED FROM KEYBOARD DO 
STALL ALLOWING TIME TO SEE PATTERN 
ROTATE LEFT TO LIGHT UP NEXT LED'S 

ENDDO 
ENDROUTINE 



J2 
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SEQ 00(^2 



971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

99S 

,000 

001 

002 

.003 

004 

005 

006 

007 

008 

009 

010 

Oil 

012 

013 

014 

015 

016 

017 

018 

019 

020 

021 

022 

023 

024 

025 

026 

027 



3.9 Q22BE lODE 

Tne Q22 Bus Exerciser is a hardware option module that can work "n 
conjunction with the CPU to test different levels of interrupt, 
a-bitration between PIRQ's, and PMG counter of the KDJll-DA, D rect 
Memory Access protocol. 

More detals about every test could be found in ths section 



TEST - DIFFERENT LEVELS OF INTERRUPTS 
DIFFERENT LEVELS OF INTERRUPTS 

THIS TEST WILL PROGRAM Q22 BUS EXERCISER TO INTERRUPT AT DIFFERENT 
LEVELS. ARBITRATION BETWEEN DIFFERENT LEVELS OF INTERRUPTS AND 
PlnQ S WILL BE TESTED. 

CKiCK DIFFERENT LEVELS OF INTERRUPTS. 
ROUTINE TEST 

SET VECTOR TO INTERRUPT DMA 
FOR INTERRUPTS FROM 4 TO 7 DO 
ENABLE INTERRUPTS 
SET PRIORITY=INTERUPT 
IF INTERRUPT FLAG SET THEN 
ERROR 

ENDIF 

ENABLE INTERRUPTS 
SET PRI0RITY=INTERRUPT-1 
IF INTERRUPT FLAG NOTSET THEN 
ERROR 

ENDIF 

LET INTERRUPT DMA=0 

ENDDO 
ENDROUTINE 

ROUTINE INTERUPT DMA 

LET INTERRUPT FLAG»1 

RETURN 
ENDROUTINE 



TEST - ARBITRATION BETWEEN PIRQ'S AND INTERRUPTS 

CHECK PRIORITY ORDER BETWEEN PIRQ S AND INTERRUPTS. 
ROUTINE TEST 

IF UFD THEN 

EXIT TEST 



ENDIF 
DO FOR 



*3 



I FROM #6 DOWN TO 
SET PRIORITY TO I 
ENABLE INTERRUPT(I*1) AND PIRQCLl) 
IF INTERRUPT(I*1) WAS BEFORE PIRQ(I*1) THEN 
ERROR 

ENDIF 



\<2 
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SEQ 0023 



1028 




1029 


ENDROUT] 


1030 




1031 




J 032 




1033 




1034 




1035 




4 A7^ 

1036 




1037 




1038 




1039 




« Ail A 

1040 




1 A>1 4 

1041 




1042 




1045 




1044 


TEST NO. 






1040 


test 1 


104 / 


^^^^ 

test o2 


lO'JO 


test 




7il 

test 34 


IODO 


test 33 


1 1 


test 3d 


Ojc: 


4-^0^ 7'7 

test 3 / 


.030 


^^r.^ 7fl 

test 3o 


.Oj** 


test 37 


.033 


^.i^M^ ilA 

test 40 


OjO 


^^^^ A 1 

test 41 


.03 / 


test '*c 


,030 


AT 

test 43 


.037 


test 44 


.060 


^^^^ AC 

test 45 


Ai 1 

.Ool 


^^^^ AC 

test 46 


Ai 'I 

.062 


test 47 


A£ 7 

.063 


test 48 


AtA 


test 47 


.065 


test 50 


.066 


test 51 


.067 


test 52 


,068 


test 53 


.069 


test 54 


,0''0 


test 55 


,071 




,072 




1073 





ENODO 



3.10 LIST OF SUBTESTS PERFORMED 

The follow ng list represents the sequential order of subtests 

performed in COKDDAO subtests which are subject to the APT 

qual fi cat ions of section 3.2 are indicated by a Cache -APT label. 

TEST NAME/FUNCTION 

Base instruction set tests 

KDJU-DA on Board Memory 

KDJll-DA Data Path 

Memory accessability 

Memory Error Register 

Data shport and stuck at bits 

Quick verify Data and Addressing 

Check Parity detect Logic and RAM's 

Native Register 

On Board ROM code 

LTC bit 7 

LKS interrupt Priority 
Resetting LKS 
Maintenance Register 
Serial Line Unit Register 

XCSR bit 7 

RCSR bit 7 and XCSR bit 2 

Reset and XCSR<2!0> 

Reset and interrupt enable bit 

Interrupt priority for SLU 

Break Condition 

Overrun Condition 

LEO' s On 

Different Levels of interrupt 
Arbitration between PIRQ's and interrupts 



I COKODAO KDJll-DA CLUSTER DIAG. MACRO V05.03 Tuesday 07-Jan-86 15:18 Page 10 



1075 3.11 PROGRAM UPDATES AND MODIFICATIONS 

1076 

1077 Version COKDDAO 10-1-85 

3078 

1079 

1080 

1081 

1082 

1083 

1084 4.0 BIBLIOGRAPHY 

1085 

1086 N/A 

1087 

1088 

1089 

1090 5.0 GLOSSARY 

1091 

1092 N/A 

1093 

1094 

1095 

1096 APPENDICES 
1097 

1098 N/A 

1099 

1100 

1101 £ 

1102 

1103 

1104 



SEQ 0024 



Michael CharchafHar 



M2 
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SEQ 0025 



1116 
1117 
1118 



167400 
000300 



1119 



1121 
1122 
1123 



000001 



000250 

177572 
177574 
177576 
172516 

177600 
177602 
177604 
177606 
177610 
177612 
177614 
177616 

177620 
177622 
177624 
177626 
177630 
r7632 
177634 
177636 

177640 
177642 
177644 
177646 



$SUR=167400 
- $SURMK=300 
TITLE COKDDAO KDJll-DA CLUSTER DIAG. 
★COPYRIGHT (C) SEPT 85 
★DIGITAL EQUIPMENT CORP. 
*MAYNARD. MASS. 01754 

♦PROGRAM BY DIAG. ENG. 

*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC S^SMAC 
♦PACKAGE (MAINOEC-ll-DZQAC C8). OCT. 1982. 

nN=i 

.SBTTL 

* 
* 



OPERATIONAL SWITCH SETTINGS 



SWITCH 

"is" 

14 
13 
11 
10 

9 

8 

7 

I 

6 



USE 



SBTTL MEMORY MANAGEMENT DEFINITIONS 
*KT11 VECTOR ADDRESS 
MMVEC= 250 

:*KT11 STATUS REGISTER ADDRESSES 

§R0= 177572 
SR1= 177574 
SR2= 177576 
SR3= 172516 

;*USER "I" PAGE DESCRIPTOR REGISTERS 
UIPDRO= 177600 



HALT ON ERROR 
LOOP ON TEST 
INHIBIT ERROR TYPEOUTS 
INHIBIT ITERATIONS 
BELL ON ERROR 
LOOP ON ERROR 
LOOP ON TEST IN SWR<5:0> 
DO EXTENSIVE DATA RAM TEST 
DO EXTENSIVE TAG RAM TEST 



UIPDR1= 
UIPDR2= 



177602 
177604 



UIPDR3= 177606 
UIPDR4= 177610 
UIPDR5= 177612 
UIPDR6= 177614 
UIPDR7' 177616 

;*USER "D" PAGE DESCRIPTOR REGISTORS 

UDPDR0= 177620 

UDPDR1= 177622 

UDPDR2= 177624 

UDPDR3= 177626 

UDP0R4= 177630 

UDPDR5= 177632 

UDP0R6= 177634 

U0P0R7= 177636 

:*USER 'I" PAGE ADDRESS REGISTERS 
UIPAR0= 177640 
UIPAR1= 177642 
UIPAR2= 177644 
UIPAR3= 177646 



N2 

COKODAO KDJll-DA CLUSTER 0IA6. 

MEnORV nANAGEMENT DEFINITIONS 

17765C 
177652 
177654 
177656 

177660 
17 /662 
177664 
177666 
177670 
177672 
177674 
177676 

172200 
172202 
172204 
172206 
172210 
172212 
172214 
172216 

172220 
112222 
172224 
172226 
172230 
172232 
172234 
172236 

172240 
172242 
172244 
172246 
172250 
172252 
172254 
172256 

172260 
172262 
172264 
172266 
172270 
172272 
172274 
172276 

172300 
172302 
172304 
172306 
172310 
172^12 
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UIPAR4= 177650 
UIPAR5= 177652 
UIPAR6= 177654 
UIPAR7= 177656 

;*USER "0" PAGE ADDRESS REGISTERS 
UOPARO= 177660 



U0PAR1= 177662 
UDPAR2' 
U0PAR3= 
UDPAR4= 
UDPAR5= 
UDPAR6» 
UDPAR7= 
i*SUPERV 
§IPDRO= 



SI?0R1= 
SIPDR2= 
SIPDR3= 
SIPDR4= 
SIPDR5= 
SIPDR6= 
SIPDR7= 



♦SUPERVISOR "D' -''•"E DESCRIPTOR REGISTERS 



§DPDRO= 
SDPDR1= 
SDPDR2= 
SDPDR3= 
SDPDR4= 



SDPDR5= 172232 



SDPDR6= 
SDPDR7= 
:*SUPERV 
§IPARO= 
SIPAR1= 
SIPAR2= 
SIPAR3= 
SIPAR4= 
SIPAR5= 
SIPAR6= 
SIPAR7= 



^DPARO' 
SDPAR1« 
SDPAR2= 
SDPAR3= 
S0PAR4= 
SDPAR5= 
S0PAR6= 
SDPPR7' 



77664 
77666 
77670 
77672 
77674 
77676 

SOR "I" PAGE DESCRIPTOR REGISTERS 



72200 
72202 
72204 
72206 
72210 
72212 
72214 
72216 



72220 
72222 
72224 
72226 
72230 



72234 
72236 
SOR "I' 
72240 
72242 
72244 
72246 
72250 
72252 
72254 
72256 



PAGE ADDRESS REGISTERS 



♦SUPERVISOR "D' PAGE ADDRESS REGISTERS 



72260 
72262 
72264 
72266 
72270 
72272 
72274 
72276 



;*KERNEL "I" PAGE DESCRIPTOR REGISTERS 

KIPDRO= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIP0R3= 172306 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 



1124 



COKDDAO KDJll-DA CLUSTER DIAG. 

f^mi MANAGEMENT DEFINITIONS 

172316 

172320 
172322 
172324 
172326 
172330 
172332 
172334 
172336 

172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 

172360 
172362 
172364 
172366 
172370 
172372 
172374 
172376 



001100 
104000 
000004 

000011 
000012 
000015 
000200 
177776 
177776 
177774 
177772 
177570 
177570 

000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000006 
000007 

000000 
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KIPDR7= 172316 

;*KERNEL "D" PAGE DESCRIPTOR REGISTERS 

KDPDRO' 172320 

KDPDR1= 172322 

KDPDR2» 172324 

KDPDR3» 172326 

KDPDR4= 172330 

KPPDR5= 172332 

KDPDR6= 172334 

KDP0R7= 172336 

:*KERNEL "I" PAGE ADDRESS REGISTERS 
KIPARO* 172340 
KIPAR1= 172342 
172344 
172346 



SEQ 0027 



KIPAR2= 

KIPAR3= 

KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172356 

;*KERNEL "D" PAGE ADDRESS REGISTERS 

KDPARO= 172360 

KDPAR1= 172362 

KDPAR2= 172364 

KDPAR3= 172366 

KDPAR4= 172370 

K0PAR5= 172372 

KDPAR6= 172374 

KDPAR7= 172376 

.SBTTL BASIC DEFINITIONS 

i*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *»» 
§TACK= 1100 

^5SS5= Idl ;: BASIC DEFINITION OF ERROR CALL 

SCOPE; lOT BASIC DEFINITION OF SCOPE CALL 

;*mSCELLANEOUS 0EFINITl6^IS 



HT= 
LF= 
CR= 
CRLF 
PS= 
PSW 



11 

12 
15 
200 
177776 
PS 



IDE FOR HORIZONTAL TAB 
IDE FOR LINE FEED 



STKLMT-^ 177774 



PIRQ 
DSUR= 
OOISP= 



177772 
177570 
177570 



fto 

Rl= 
R2= 
R3= 
R4= 
R5= 
R6= 
R7= 
SP 
PC 



GENERAL PURPOSE REGIST^ft DEFINITIONS 



CO 

CO. 

CODE FOR CARRIAGE RETURN 
CODE FOR CARRIAGE RETURN-LINE FEED 
PROCESSOR STATUS WORD 

STACK LIMIT REGISTER 
PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 



il 

il 
#4 
K5 

K7 



GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
STACK POINTER 
PROGRAM COUNTER 



:*PRIORITY LEVEL DEFINIlifiNS 
PR0= 0 ;; PRIORITY LEVEL 0 



COKODAO KDJll-DA CLUSTER DIAG. 
BASIC DEFINITIONS 
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PRIORITY LEVEL 1 
PRIORITY LEVEL 2 
PRIORITY LEVEL 3 
PRIORITY LEVEL 4 
PRIORITY LEVEL 5 
PRIORITY LEVEL 6 
PRIORITY LEVEL 7 



000040 


PR1= 


40 


000100 


PR2= 


100 


000140 


PR3= 


140 


000200 


PR4' 


200 


000240 


PR5= 


240 


000300 


PR6= 


300 


000340 


PR7= 


340 




:* "SWITCH REGI 


100000 


SU15= 


100000 


040000 


SU14= 


40000 


020000 


SU13= 


20000 


010000 


SU12= 


10000 


004000 


SU11= 


4000 


002000 


SW10= 


2000 


001000 


SU09= 


1000 


000400 


SU08= 


400 


000200 


SU07= 


200 


000100 


SU06= 


100 


000040 


SU05= 


40 


000020 


SU04= 


20 


000010 


SU03= 


10 


000004 


SU02= 


4 


000002 


SU01= 


2 


000001 


SUOO= 


1 


001000 


SU9= 


SU09 


000400 


SU8= 


SU08 


000200 


SU7= 


SU07 


000100 


SU6= 


SU06 


000040 


SU5= 


SU05 


000020 


SU4= 


SU04 


000010 


SU3= 


SU03 


000004 


SU2= 


SUC2 


000002 


SW1= 


SUOl 


000001 


SUO= 


SUOO 




:*DATA 


BIT DEF 


100000 


6lT15= 


100000 


040000 


BIT14= 


40000 


020000 


BIT13= 


20000 


010000 


BIT12= 


10000 


004000 


BIT11= 


4000 


002000 


BIT10= 


2000 


001000 


BIT09= 


1000 


000400 


BIT08= 


400 


000200 


BIT07= 


200 


000100 


BIT06» 


100 


000040 


BIT05= 


40 


000020 


BIT04= 


20 


000010 


BIT03= 


10 


000004 


BIT02= 


4 


000002 


BIT01= 


2 


000001 


BITOO= 


1 


001000 


BIT9= 


BIT09 


000400 


BIT8= 


BIT08 


000200 


BIT7= 


BIT07 


000100 


BIT6= 


BIT06 


000040 


BIT5= 


BIT05 


000020 


BIT4= 


BIT04 



COKOOAO KOJU-OA CLUSTER 0IA6. 

BASIC OEriNITIONS 

000010 
000004 
000002 
000001 



000004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000240 
000001 
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1125 
1126 



000000 







000174 






000174 


000000 






000176 


000000 




1127 




000200 




1128 


000200 


005037 


001160 


1129 


0C0204 


000137 


004054 


1130 




000220 




1131 


000220 


012737 


000777 


1132 


000226 


000137 


004054 


1133 








1134 









000046 
000052 



1135 



000024 
000044 



000232 
000232 



000232 
000046 
030114 
000052 
000000 
000232 



000232 
000024 
000200 
000044 
000232 
000232 



000000 



001160 



SEQ 002t* 



BIT3= 
BIT2' 
BIT1 = 
BITO= 
:*BASIC 
fRRVEC= 
RESVEC= 
TBITVEC=14 
TRTVEC= 14 
BPTVEC= 
IOTVEC= 
PURVEC= 
EMTVEC= 
TRAPVEC 
TKVEC= 
TPVEC= 
PIRQVEC 



BIT03 
BIT02 
BITOl 
BITOO 
"CPU" 
4 

10 



TRAP VECTOR 



.SBTTL 



14 

20 
24 
30 
34 
60 
64 
240 

UFOSET» 
TRAP CATCHER 



i 



OTHER ERRORS 
ILLEGAL INSTRUCTIONS 



ADDRESSES 
TIME OUT AND 
RESERVED AND 
"T" BIT 
TRACE TRAP 

BREAKPOINT TRAP (BPT) 
INPUT/OUTPUT TRAP (lOT) **SCOPE** 
POWER FAIL 

EMULATOR TRAP (EMT) **ERR0R** 
"TRAP" TRAP 
TTY KEYBOARD VECTOR 
TTY PRINTER VECTOR 
PROGRAM INTERRUPT REQUEST VECTOR 
;FLAG FOR UFD 



.=0 

:*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".♦2. HALT" 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
;*LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.=174 



DISPREG: 
SUREG: 
.=200 



.=220 



.WORD 
.UORD 

CLR 
JMP 



MOV 
JMP 



0 
0 

JTMPO 
8#START 

*777.JTMP0 

8#stArt 



SOFTWARE DISPLAY REGISTER 
;: SOFTWARE SWITCH REGISTER 



:SAVE PC 

:;1)SET L0C.46 TO ADDRESS OF $ENDAD IN . $EOP 



.SBTTL ACTll HOOKS 

: HOOKS REQUIRED BY ACTll 
$SVPC=. 
.=46 
$ENDAD 
.=52 

.WORD 0 !;2)SET L0C.52 TO ZERO 

.=$SVPC RESTORE PC 

.SBTTL APT PARAMETER BLOCK 

SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 



TO START OF PROGRAM 



.$X». J ; SAVE CURRENT LOCATION 

,=24 ;:SET POWER FAIL TO POINT 

200 ;;FOR APT START UP 
.=44 POINT TO APT INDIRECT ADDRESS PNTR. 

$APTHDR J : POINT TO APT HEADER BLOCK 
.=.*X RESET LOCATION COUNTER 

; **************** **«*«****«**********ic********** 

; SETUP APT PARAMETER BlOCK AS r'"INED IN THE APT-PDPU DIAGNOSTIC 

INTERFACE SPEC. 

$APTHD: 

$HIBTS: .WORD 0 :;TUO HIGH BITS OF 18 BIT MAILBOX ADDR. 
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AP' PARAMETER BLOCK 



000234 
000236 
000240 
000242 
000244 



001200 
000000 
000000 
000000 
000052 



$MBAOR: .UORO 
JTSTM: .WORD 
JPASTM: .UORO 
$UNITM: .WORD 
.WORD 



JMAIL 



SEQ 0030 



:ADDRESS OF APT MAILBOX CBITS 0-15) 
;RUN TIM OF LONGEST TEST 

;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY 



F3 



COKOOAO KDJll-DA CLUSTER DIAG. 
COmON TAGS 
1136 
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SEQ 0031 



00 
00 
00 
00 
00 
00 
00 

00: 
00 : 
oo: 
oo: 
00 : 

001 
001 
001 
001 
001 
001 
001 
001 
001 
001 

001: 
001: 
ooi: 
ooi: 
ooi: 
ooi: 
ooi: 
ooi: 



100 

100 

102 

103 

104 

106 

110 

112 

114 

115 

116 

120 

.22 

.24 

.26 

.30 

32 

34 

35 

36 

40 

42 

44 

46 

50 

52 

54 

55 

56 

57 



001160 
001162 
001164 
001166 
001170 
001173 
001174 
001175 
001176 



001200 
001200 
001202 
001204 
001206 
001210 
001212 
001214 



001100 

000000 
000 
000 
000000 
000000 

oooooc 

000000 
000 
001 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000 
000 
000000 
177570 
177570 
177560 
177562 
177564 
177566 
000 
002 
012 
000 
000002 
000000 
000000 
000000 
000000 
207 
000 
077 
015 
012 



000000 
000000 
000000 
000000 
000000 
000000 
000000 



377 



000 



.SBTTL 

; ***** 

♦ THIS 
♦USED 

$CMTAG: 



$TSTNM: 

$ERFLG: 

$ICNT: 

$LPADR 

$LPERR 

$ERTTL 

$ITEMB 

$ERMAX 

$£RRPC 

$GDADR 

$BDADR 

$GODAT 

$BDDAT 



$AUTOB: 
$INTAG: 

SUR: 
DISPLAY 
$TKS 
$TKB 
$TPS 
$TPB 
$NULL 
$FILLS 
$FILLC 
$TPFLG 
.REPT 
HMPO: 
$TMP1: 
$TIMES: 
$ESCAPE 
377 $BELL: 



COMMON TAGS 

****************************««*«*«**««*««««4,4,4,4,4,««;»;»4,«**4,4, 

TABLE CONTAINS VARIOUS COMMCN STORAGE LOCATIONS 
IN THE PROGRAM. 
.=1100 



.WORD 
.BYTE 
.BYTE 
.UORD 
.UORD 
.UORD 
.UORD 
.BYTE 
.BYTE 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.BYTE 
.BYTE 
.UORD 



0 
0 
0 
0 
0 
0 
0 
0 
1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 



.UORD DSUR 
: .WORD ODISP 
177560 
177562 
177.64 
177566 
.BYTE 0 
.BYTE 2 
.BYTE 12 
•BYTE 0 
2 

.UORD 0 
.UORD 0 
0 
:0 

.ASCIZ <207><377><377) 



;:START OF COMMON TAGS 

CONTAINS THE TEST NUMBER 
CONTAINS ERROR FLAG 
CONTAINS SUBTEST ITERATION COUNT 
CONTAINS SCOPE LOOP ADDRESS 
CONTAINS SCOPE RETURN FOR ERRORS 
CONTAINS TOTAL ERRORS DETECTED 
CONTAINS ITEM CONTROL BYTE 
CONTAINS MAX. ERRORS PER TEST 
CONTAINS PC OF LAST ERROR INSTRUCTION 
CONTAINS ADDRESS OF 'GOOD' DATA 
CONTAINS ADDRESS OF 'BAD' DATA 
CONTAINS 'GOOD' DATA 
CONTAINS 'BAD' DATA 
RESERVED- -NOT TO BE USED 

; J AUTOMATIC MODE INDICATOR 
;; INTERRUPT MODE INDICATOR 

ADDRESS OF SWITCH REGISTER 
ADDRESS OF DISPLAY REGISTER 
TTY KBD STATUS 
TTY KBD BUFFER 

TTY PRINTER STATUS REG. ADDRESS 
TTY PRINTER BUFFER REG. ADDRESS 
CONTAINS NULL CHARACTER FOR FILLS 
CONTAINS * OF FILLER CHARACTERS REQUIRED 
INSERT FILL CHARS. AFTER A "LINE FEED" 
"TERMINAL AVAILABLE" FLAG (BIT<07>-0=YES) 

USER DEFINED 
USER DEFINED 

MAX. NUMBER OF ITERATIONS 
ESCAPE ON ERROR ADDRESS 
CODE FOR BELL 



QUESTION MARK 
CARRIAGE RETURN 
LINE FEED 



$QUES: .ASCII /?/ 

$CRLF: .ASCII <15> 

$LF: .ASCIZ <12> 

;•****************************************************«****«*««** 

.SBTTL APT MAILBOX-ETABLE 

; • ****************************************************t*****Jl**** 

.EVEN 

$MAIL: j;APT MAILBOX 

$MSGTY: .WORD AMSGTY ;; MESSAGE TYPE CODE 

$FATAL: .UORD AFATAL ;; FATAL ERROR NUMBER 

$TESTN: .UORD ATESTN ;;TEST NUMBER 

$PASS: .UORD APASS ;;PASS COUNT 

$DEVCT: .WORD ADEVCT ;; DEVICE COUNT 

$UNIT: .WORD AUNIT ;; I/O UNIT NUMBER 

$MSGAD: .WORD AMSGAD ;; MESSAGE ADDRESS 



Gi 



COKDDAO KDJll-DA CLUSTER OIAG. 

APT MAILBOX-ETABLE 

001216 000000 
001220 
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SEQ 0032 



001220 
001221 



000 
000 



001222 000000 
001224 000000 
001226 000000 



001230 
001231 



000 
000 



001232 000000 



001234 
00123S 
001236 
001240 
001241 
001242 
001244 
001245 
001246 
001250 
001252 
001254 
001256 
001260 
001262 
001264 
001266 
001270 
001272 
001274 
001276 
001300 
001302 
001304 
001306 
001310 
001312 
001314 
001316 
001320 
001322 
001324 



000 
000 
000000 
000 
000 
000000 
000 
000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



$f1SGLG: 

$ETABLE: 

$ENV: 

$ENVM: 

$SUREG: 

$USUR: 

$CPUOP: 

ImAMSI: 
$MTYP1: 

;* 
:* 



iilADRl 

iMAMS2 

$MTYP2 

$MADR2 

$MAMS3 

$MTYP3 

$MADR3 

$MAMS4 

$MTYP4 

$MADR4 

^VECTl 

$VECT2 

$BASE 

$DEVM 

$CDU1 

$C0U2 

$DDUO 

$DDU1 

$DDU2 

$DDU3 

$DDU4 

$DDU5 

$DDU6 

$DDU7 

$DDU8 

$DDU9 

$0DU10 

$D0U11 

$DDU12 

$DDU13 

$DDW14 

$DDW15 

$ETEND 



.UORO AMSGLG 



.BYTE 
.BYTE 
.UORD 
.UORD 
.UORO 



.BYTE 
.BYTE 



.BYTE 
.BYTE 
.UORD 
.BYTE 
.BYTE 
.UORD 
.BYTE 
.BYTE 
.UORD 
.UORD 
.UORD 
.UORD 
.UORO 
.WORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 



AENV 

AENVM 

ASUREG 

AUSUR 

ACPUOP 



AMAMSl 
AMTYPl 



.UORD AMADRl 



AMAMS2 

AMTYP2 

AMADR2 

AMAMS3 

AMTYP3 

AMADR3 

AMAMS4 

AMTYP4 

AMADR4 

AVECTl 

AVECT2 

ABASE 

ADEVM 

ACDUl 

ACDU2 

ADDUO 

ADDUl 

ADDU2 

ADDU3 

ADDU4 

ADDU5 

ADDU6 

ADDU7 

ADDU8 

ADDU9 

ADOUlO 

ADDUll 

ADDU12 

ADDU13 

ADDU14 

ADDU15 



MESSAGE LENGTH 
APT ENVIRONMENT TAB-E 
ENVIRONMENT BYTE 
ENVIRONMENT MODE BITS 
APT SUITCH REGISTER 
USER SUITCHES 
..CPU TYPE, OPTIONS 
BITS 15-lKPU TYPE 

11/04=01.11/05=02,11/20=03,11/40=04.11/45-05 
11/70=06, PDQ=07,G-10 
BIT 10=REAL TIME CLOCK 
BIT 9=FL0ATING POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
;;HIGH ADDRESS, M.S. BYTE 
jiMEM. TYPE.BLK#1 
M^M.TYPE ByIe (HIGH BYTE) 

900 NSEC CORE =001 
300 NSEC BIPOLAR =002 
500 NSEC M0S=003 
:;HIGH ADDRESS. BLK*1 
MEM. LAST ADDR.=3 BYTES. THIS UORD AND LOU OF "TYPE" ABOVE 
HIGH ADDRESS .M.S. BYTE 
MEM. TYPE. BLKi2 
MEM. LAST ADDRESS. BLK#2 
HIGH ADDRESS .M.S. BYTE 
MEM. TYPE. BLKi3 
MEM. LAST ADDRESS. BLK« 
HIGH ADDRESS .M.S. BYTE 
MEM. TYPE. BLKi4 
MEM. LAST ADDRESS .BLK#4 
INTERRUPT VECTORh.BUS PRIORITY*! 
INTERRUPT VECT0R*26US PRI0RITY*2 
BASE^ADDRESS OF EQUIPMENT UNDER TEST 
DEVICE MAP 

CONTROLLER DESCRIPTION U0RD#1 
CONTROLLER DESCRIPTION U0RD*2 



DEVICE DESCRIP 
DEVICE DESCRIP 
DEVICE DESCRIP 
DEVICE DESCRIP 
DEVICE DESCRIP 
DEVICE DESCRIP 
DEVICE DESCRIP 
DEVICE DESCRIP 
DEVICE DESCRIP 
DEVICE DESCRIP 
DEVICE DESCRIP 
DEVICE DESCRIP 
DEVICE DESCRIP 
DEVICE DESCRIP 
DEVICE DESCRIP 
DEVICE DESCRIP 



OR UORDfO 
OR U0RD#1 
OR U0RD#2 
OR U0RD#3 
OR U0R0#4 
OR U0RD*5 
OR U0RD«6 
OR U0RD#7 
OR U0RD«8 
OR U0RD«9 
CR U0R0«10 
OR U0RD«11 
OR U0RD#12 
OR U0RD*13 
OR U0RD#14 
OR U0RD#15 



h3 



COKOOAO KOJU-OA CLUSTER OIAG. 
ERROR POINTER TABLE 



001324 

1137 
1138 
1139 
1140 

1141 001324 

1142 001326 

1143 001330 

1144 001332 
1145 

1146 001334 

1147 001336 

1148 001340 

1149 00134: 
1150 

1151 001344 

1152 001346 

1153 001350 

1154 0C1352 
1155 

1156 001354 

1157 001356 

1158 001360 

1159 001362 
1160 

1161 001364 

1162 001366 

1163 001370 

1164 001372 
1165 

1166 001374 

1167 001376 

1168 001400 

1169 001402 
1170 

1171 001404 

1172 001406 

1173 001410 

1174 001412 
1175 

1176 001414 

1177 001416 

1178 001420 

1179 001422 
1130 

1181 001424 

1182 001426 



017151 
023514 
024702 
000000 

017205 
023514 
024702 
000000 

017217 
023514 
024702 
000000 

017231 
023514 
024701 
000000 

017267 
023514 
024702 
000000 

017313 
023514 
024702 
000000 

017425 
023514 
024702 
000000 

017464 
024345 
025136 
000000 

017534 
023514 
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.SBTTL ERROR POINTER TABLE 

*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR 
*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
♦LOCATION JITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
*N0TE1: IF JITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERRPC). 

*N0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS' 

POINTS TO THE ERROR MESSAGE 
POINTS TO THE DATA HEADER 
POINTS TO THE DATA 
POINTS TO THE DATA FORMAT 



SEQ 3033 



{ERRTB; 



EM 
DH 
DT 
DF 



.SBTTL 
;ITEM 1 



:ITEM 2 



;ITEM 3 



{ITEM 4 



;ITEM 5 



;ITEM 6 



;ITEM 7 



:ITEM 10 



;ITEM 11 



ERROR DEFINIiIONS 



EMI 
DHl 
DTI 
0 


;CPU ERROR 

JEST it. ERROR PC 

lUMPl.iERRPC 


EM2 
DHl 
DTI 
0 


;MMU ERROR 

iTEST #, ERROR PC 

i$TMPl.iERRPC 


EM3 
DHl 
DTI 
0 


;FPP ERROR 

•TEST *, ERROR PC 

,*TMP1,$ERRPC 


EM54 
DHl 
DTI 
0 


; CHECKSUM ERROR IN 16-BIT ROM 
TEST *, PC 
nMPl.JERRPC 


EM56 
DHl 
DTI 
0 


TIMEOUT READING LKS 
TEST *, PC 
$TMPl.iERRPC 


EM57 

DHl 

DTI 

0 


LI<S<07> DOES NOT BECOME 1 
TEST *, PC 
$TMP1 JeRRPC 


EM64 
DHl 

DTI ; 
0 


WRONG NUMBER OF LKS INTERRUPTS 

TEST #, PC 

nMPl.lERRPC 


EM65 ; 
DH65 ; 

D^65 ; 

0 


LKS INTERRUPTS HAPPEN AT WRONG PRIORITY 
TEST PC. PRIORITY 
$TMPl,iERRPC.$GDDAT 


EM71 ; RESET DOESN'T CLEAR LKS<06> 
DHl ;TEST PC 



COKDDAO KDJil- 


DA CLUSTER DIAG. 






ERRCR DEFINITIONS 






1183 001430 


024702 




nil 


1184 001432 


000000 






1185 




;ITEM 




1186 001434 


017570 


FM7P 
CM r c 


1187 001436 


024411 




un 1 c 


1188 001440 


025030 




u 1 


1189 001442 


000000 




0 


1190 




jITEM 


13 


1191 001444 


017626 


FM73 


1192 001446 


023514 






1193 001450 


024702 




DTI 


1194 001452 


000000 




V 


1195 




;ITEM 


14 


1196 001454 


017652 


PM74 


1197 001456 


023514 






1198 001460 


024702 




DTI 


1199 001462 


000000 




0 


1200 




ilTEM 


15 


1201 001464 


017703 


EM75 


1202 001466 


023541 




DH4 


1203 001470 


025146 




DT75 


1204 001472 


000000 




0 


1205 




:ITEM 


16 


1206 001474 


017734 


EM76 


1207 001476 


023514 




DHI 


1208 001500 


024702 




on 


1209 001502 


000000 




0 


1210 




;ITEH 


17 


1211 001504 


020004 


EM77 


1212 001506 


023514 




DHI 


1213 001510 


024702 




DTI 


1214 001512 


000000 




0 


1215 




;ITEM 


20 


1216 001514 


020036 




1217 001516 


023514 




DHI 
unx 


1218 001520 


024702 




DTI 

V 1 X 


1219 001522 


000000 




0 


1220 




;ITEM 


21 


1221 001524 


020074 


EMIOI 

IXVX 


1222 001526 


023514 




DHI 

Ul IX 


1223 001530 


024702 




DTI 

V 1 X 


1224 001532 


000000 




0 


1225 




ilTEM 


22 


1226 001534 


020127 


EM 102 


1227 001536 


023514 




DHI 


1228 001540 


024702 




DTI 

V 1 X 


1229 001542 


000000 




0 


1230 




;ITEM 


23 


1231 001544 


020211 


EM103 


1232 001546 


023514 




DHI 

unx 


1233 001550 


024702 




DTI 

1/ 1 X 


1234 001552 


000000 




0 


1235 




;ITEM 


24 


1236 001554 


020264 


EM104 


1237 001556 


023514 




DHI 


1238 001560 


024702 




DTI 


1239 001562 


000000 




0 



an-86 15:18 Page 13-1 



SEQ 0054 



;$TMP1,$ERRPC 



TIMEOUT READING SLU REGISTERS 
TEST #, PC. ADDRESS FAILED 
$TMPl,$ERR|iC,$BDDAT 



XMIT READY DIDN'T GO LOW 
TEST #, PC 
$TMPl,iERRPC 



RCSR DOESN'T BECOME 1 
TEST #, PC 
$TMPl,iERRPC 



WRONG CHARACTER RECEIVED 

TEST #, PC. EXPECTED DATA. RECEIVED DATA 

$TMPl,$ERRPC.$GDOAT.$BDDAt 



RCSR<07> NOT CLEARED AFTER READING RBUF 
TEST #, PC 

$tmpi.Jerrpc 



XCSR<07> NOT SET ON RESET 
TEST #, PC 
$TMP1 JeRRPC 



RCSR<07> NOT CLEmI^EO ON RESET 

TEST #, PC 

$TMPl.iERRPC 



SLU INTERRUPTS HAPPEN AT 4 

TEST #, PC 

$TMP1.$ERRPC 

RESET DOES NOT CLEAR XCSR<6> AND Rl)CR<6> 
TEST #, PC 

$tmpiJerrpc 



TRANSMIT INTERRUPT DOES NOT CLEAR XCSR<07> 

TEST PC 

nMPl.iERRPC 



RECEIVE INTERRUPTS DON'T CLEAR RCSR<07> 
TEST PC 

$tmpi.Ierrpc 



J3 

COKDDAO KDJll-DA CLUSTER DIAG. MACRO V05.03 Tuesday 07- 
ERROR DEFINITIONS 







• TTFM 


25 




Vw V J'n/^ 


FM105 




024455 






ip47 001 S70 






DTI 05 

U 1 XV^ 


1?44 00157? 


000000 

www 




0 


1245 




•ITEM 


26 


1246 001574 


020407 


FM106 

^> IXW 


1?47 001576 


024455 




DH105 


1248 001600 


025160 




DT105 

V 1 XV^ 


1249 001602 


000000 

www 




0 


1250 




•ITEM 


27 


1251 001604 


020465 


EM107 

^1 IXV f 


1252 001606 


023514 




DHl 


1253 001610 


02A702 

< Vw 




DTI 


1254 001612 


000000 

www 




0 

V 


1255 




;ITEM 


30 


1256 001614 


020521 

VCi V ^ w A 


EM 110 


125/ 001616 


023514 




DHl 


1253 001620 


024702 




DTI 


1259 001622 


000000 




0 


1260 




;ITEM 


31 


1261 001624 


020563 


EMUl 


P62 001626 


023541 




DH4 


1263 001630 


025146 




DT75 


1264 001632 


000000 

V V V V V V 




0 


1265 




;ITEM 


32 


1266 001634 


020641 


EM112 


1267 001636 


024455 




DH105 


1268 0C1640 


025160 




DT105 


1269 001642 


000000 




0 


1270 




;ITEM 


33 


1271 001644 


020724 


EM113 


1272 001646 


024455 




DH105 


1273 001650 


025160 




DT105 


1274 001652 


000000 

■/WWW 




0 


1275 




;ITEM 


34 


1276 001654 


021010 


EM 114 


1277 001656 


023514 




DHl 


1278 001660 


024702 




DTI 


1279 001662 

Aw ' ' WAVVW 


000000 

V w V V V V 




0 


1280 




;ITEM 


35 


1281 001664 


021063 


EM124 


1282 001666 

Aw^W VVAWW 


023514 




DHl 


1283 001670 

AWVW WAV/ >V 


024702 




DTI 


1284 001672 

A W w ' V W A W ' W 


000000 




0 


1285 




:ITEM 


36 


1286 001674 

A W V V V A V ' ' 


021155 


EM125 


1287 001676 


023514 




DHl 


1288 001700 


024702 




DTI 


1289 001702 


000000 




0 


1290 




;ITEM 


37 


1291 001704 


021214 


EM126 


1292 001706 


023514 




DHl 


1293 001710 


024702 




DTI 


1294 001712 


000000 




0 


1295 




;ITEM 


40 


1296 001714 


021251 


EM127 
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SEQ 0035 



break condition does not set rbuf properly 

test #, pc. rbuf 

$tmpi.Jerr?>c.rbuf 

rbuf wasn't cleared on next char, 
test pc. rbuf 
$tmpi,Jerr^c.rbuf 

error in writing to xcsr<0> 

TEST #, PC 
$TMPl,iERRPC 

RESET DOES NOT CLEAR XCSR<00> 
TEST #, PC 

$tmpiJerrpc 

first character was not overrun by the second 
test #, pc. expected data. received data 

$TMPl.iERR^C.$GDOAT.$BODAt 

overrun condition does not set proper bits in rbuf 

test #, pc. rbuf 

$tmpi.Jerr^c,rbuf 

rbuf was not cleared on the next character 
test *, pc. rbuf 

$TMPl,iERR^C.RBUF 

ERROR IN XCSR<2> 
TEST #, PC 
JTMPl.iERRPC 

PIRQ INTERRUPTS DON'T TAKE PRIORITY OVER Q BUS INTERRUPTS 

TEST #, PC 

JTMPl.iERRPC 

NO POWER DOWN TRAP TO 24 OCCUR 
TEST #, PC 

$tmpiJerrpc 

error in interrupts from q22be 

TEST #, PC 

$tmpi,Jerrpc 



: ERROR IN PMG COUNTER 



^3 

COKDDAO KDJll-DA CLUSTER DIAG. MACRO V05.03 Tuesday 07- 



ERROR DEFINITIONS 






1 007 Arti 71 <i 






DHl 


1 DQfl ArtOOft 






OTl 


Ict"? WLldC 






0 






:ITEM 


41 




0P1 71 7 
vclolo 


EM130 




Uc OJlH 




DHl 








DT130 




no on no 




0 






;ITEM 


42 


1 7nA nni 77a 


AP1 74n 


EM131 




np7'\i4 




DHl 


1 ■^nfl nn 1 7An 

1 OvO UU 1 f HU 


nP47np 




DTI 


iOU? WVJ. (He 


nnnnnn 




0 


1 71 n 




:ITEM 


43 


1 71 1 on 1 744 


npl 770 

wc 1 0 1 w 


EM132 


171? flni7AA 

1 OlC UUi 1 40 


nP7R14 




DHl 


1 71 7 ftfti 7^ft 

1010 \J\J 1 1 


nP47np 




DTI 


1714 ooi7*;p 

1 OIH Vvl r 


OOflOOO 




0 


1 71 S 
101 J 




.•ITEM 


44 


171 ft 001 7S4 

lOlU Wl r «JH 


OP 1 /• P6 

VCI CO 


EM135 


1 71 7 0017Sfi 

1 0 1 > vVl r JXJ 


0P7S41 




DH4 


1718 001760 


0PS146 

wC i^X~V/ 




0T75 


1719 00176P 

1 V X 7 V V 1 f UC 


000000 

vv W W 




0 


1 7?0 

1 OCv 




;ITEM 


45 


17?1 001764 

1 OC 1 vv 1 1 D*t 


OP 14^4 

vt X*tU*t 




EM136 


17?P 001766 


0P3514 

vC^^ X~ 




DHl 


17?3 001770 


0P4702 




DTI 


i7p4 001 77P 

X sjC^ vv X I ( C 


000000 

W vv vv 




0 






;ITEM 


46 


175ft 001774 

X wCU vvX < ' " 


0P1SP6 

vC X JCU 


EM137 


17P7 00177fi 

X >JC I vvX • • U 


0P"^S14 

vt X^ 




DHl 


1 70 ft OOPOOO 


0P470P 

vC ^ » vfc 




OTl 


1 %?9 OOPOOP 

X 7 VvCvVC 


000000 

WvvW 




0 


1 770 

X w<^v 




;ITEM 


47 


00P004 


QP1S77 

vC X J • w 


EM140 


1 W? OOPOOfi 


vC ^JX^ 




OHl 


1 00P010 

XOO^ vvCvXv 


0P470P 




DTI 


1774 00P01P 

10J*t vVCvXC 


000000 




0 


1 77S 




;ITEM 


50 


1776 OOPOIA 

lOOU vvCVlt 


OP 1664 

vC xvu*t 


EM141 


1777 00P016 

1 00 r VvCvlU 


0P7S14 

vC ^^X^ 




OHl 


1 77» OOPOPO 


0P470P 

vC^ 1 vt 




OTl 


1770 OOPOPP 

100 7 WCvCC 


000000 

vvV/wV/v 




0 


1340 




;ITEM 


51 


1 74 1 00P0P4 

Xw"tX WtvC" 


OP1747 


EM142 


174? 0OP0P6 


0P7S14 

VC x^ 




DHl 


1347 00P030 


0P470? 

VC~ > VC 




OTl 


1344 002032 


000000 




0 


1345 




;ITEM 


52 


1346 002034 


022040 


tnl43 


1347 002036 


023514 




DHl 


1348 002040 


024702 




OTl 


1349 002042 


000000 




0 


1350 




;ITEM 


53 


1351 002044 


022113 


EM144 


1352 002046 


023514 




OHl 


1353 002050 


024702 




DTI 
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SEQ 0036 

JEST #, PC 
:JTMPiJeRRPC 

UNEXPECTED TIMEOUT 
TEST #, PC 

*tmpi.Jerrpc 
error writing to lks<6> 

TEST #, PC 
JTMPl.iERRPC 

MAINTENANCE REGISTER ERROR 
TEST #, PC 
$TMPl,iERRPC 



ERROR IN THE DATA PATHS 
TEST #, PC. EXPECTED DATA. RECEIVED DATA 
$TMPl.iL<R^C.$GODAT.$BOOAt 



TIMED OUT IN ACCESSING LOCATION 0 
TEST #, PC 

$tmpi,Jerrpc 

timed out in trying to access memory 

TEST PC 
$TMPl,iERRPC 

J ERROR IN FUNCTIONAL REV BITS ON NATIVE REGISTER 

:TEST #, PC 

:$TMP1,JeRRPC 

ERROR IN INDICATOR BITS ON THE NATIVE REGISTER 
TEST #, PC 

jtmpi.Jerrpc 



ERROR IN THE BOOT SElECT SWITCHES ON THE NATIVE REGISTER 

TEST #, PC 

$TMPl,iERRPC 



TIMED OUT IN ACCESSING THE NATIVE REGISTER 

TEST *, PC 

$TMP1.JERRPC 



LTC MONITOR IS NOT TOGGLING 

TEST #, PC 

$TMPl,iERRPC 



u3 

I COKDOAO KD,.11-DA CLUSTER DIAG. MACRO V05.03 Tuesday 07 
ERROR DEFINITIONS 



1354 002052 


AA A A A A 

000000 




A 

0 


• TIT r 

1355 




.•ITEM 


54 


1356 002054 


A ^ A 4 ^ A 

022170 


En 14 5 


1357 002056 


A^ 7P 4 H 

023514 




DHl 


1358 002060 


A ^ il ^ A A 

024702 




nT 4 

DTI 


1359 002062 


Aft A A A A 

000000 




A 

0 


1360 




;ITEn 


55 


1361 002064 


A ft '\ ^ 7 ^ 

022236 


EM 14 6 


1362 002066 


Aft 7C 4 Ik 

023514 




r\i_i 4 

DHl 


1563 002070 


Aft H ^ Aft 

024702 




DTI 


4 7f Jl AA^A^^ 

1364 002072 


A A A A A A 

000000 




A 

0 


1365 




;ITEn 


56 


1366 002074 


Aft ft 7 ft 4 

022301 


EM147 


1567 002076 


023541 




nu>i 
Un4 


4 7£ O AA'^4 AA 

1368 002100 

1369 00^102 


025146 




AT7C 

DT75 


AAAAAA 

000000 _ 




A 
0 


1370 




TTCM 

;lTrn 


C7 

57 


1 TT 1 AAO 1 Ail 

1371 002104 


A007C£ 

022356 


CM 1 C A 

tni50 


1 TT^ AA ^ 1 A£ 

13/2 002106 


A07C 1 >l 

023514 




nu 1 
Unl 


AA^IIA 

13 '3 002110 


AO>l 7 AO 

024 /02 




Ul 1 


1 TT /I A A 'I 111 

13/4 002112 


AAAAAA 
000000 




A 
0 


13 O 






CA 

60 


ITT^ AAO< 1A 

13^6 002i.l'l 


AOOyI 77 

022457 


CM 1 CI 

tM151 


1 T 7 "7 AA 1 1 £ 

13/ ' 002116 


A07C 1 >l 

025514 




Unl 


1 TTO AA'^ 1 1A 

13/0 002120 


AO>l 7AO 

024702 




nT 1 

Ul 1 


15/y Ou2122 


AAAAAA 
000000 




A 

0 


1 70A 




;llbn 


bl 


1 7 □ f A A 0 104 

1581 0C2124 


AOOCAC 

022505 


CM ICO 

tnl52 


1382 002126 


AO>l C^>l 

024564 




nui 7>i 
unl54 


1 7 D 7 AA 0 1 7 A 

1383 002150 


AOCO 1 O 

025212 




HT 17/1 

Ul 154 


1 7D >l AA0 1 70 

1584 002132 


AAAAAA. 
000000 




A 
0 


1 7QC 

1585 




TTCM 

;1 Itn 




17Q£ AA017>I 

1386 002134 


AO OC£ 7 

02256/ 


CM1 C7 

tni53 


1707 AA01 "XL. 

158/ 002156 


A07C 1 /I 

025514 




Unl 


1 7 D D A A ^ 1 >l A 

1388 002140 


AO >n AO 

024702 




AT 1 

Ul 1 


1 7 D Q AA 0 1 >l O 

1389 002142 


AAAAAA 
000000 




A 
0 


1 7QA 

1590 




T1 CM 

;1 Itn 


£7 

65 


1 7Q 1 AAO 1 >! >! 

1591 002144 


AO Ot >l 7 

022b4 / 


CM 1 P/l 

trii54 


1 7 O O AA O 1 A £ 

1592 00214b 


025514 




Unl 


1 707 AA01 CA 

1393 002130 


AOilTAO 

024 /02 




AT 1 
Ul 1 


1 70il AA01 CO 

1394 002152 


AAAAAA 
OOOOOU 




A 
0 


1 7QC 

1595 




TTCM 

,1 Itn 


t/l 

04 


1 AAO 1 CVI 

139b 002154 


AO 077/1 

022 / 54 


CM1 


1 7Q7 AA01 

159/ 00215b 


A07Cyi 1 
025541 




nu/i 
Un4 


1 7O0 A A O 1 ^ A 

1598 002160 


AOt A liC 

025146 




nT7C 

Ul /5 


1599 002162 


AAAAAA 
OUOOOO 




A 


1 >l A A 

1400 




. TTCM 

;1 Itn 


05 






Flil56 


:402 002166 


023541 




0H4 


140? 002170 


025146 




0T75 


1404 002172 


000000 




0 


1405 




:ITEM 


66 


1406 002174 


023061 


EM157 


1407 002176 


024564 




DH134 


1408 002200 


025212 




0T134 


1409 002202 


000000 




0 


1410 




;ITEM 


67 
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SEQ 0037 



TIMEOUT IN ACCESSING THE LKS REGISTER 
TEST *, PC 

$tmpi.Jerrpc 



ERROR IN STUCK AT ZERO BITS ON MER 
TEST #, PC 
$TMP1 JeRRPC 



COULD NOT SET ONE OF THE R/U BITS ON THE MER 
TEST *. PC. EXPECTED DATA. RECEIVED DATA 
$TMPl.$ERR^C.$GDOAT,$BDDAt 

BITS 0,2.14.15 ON THE MER DID NOT CLEAR ON RESET 
TEST I^C 

$tmpi.Jerrpc 



TIMEOUT IN ACCESSING THE MER REGISTER 

TEST *, PC 

$TMPl.iERRPC 



ERROR IN THE DATA SHORTS AND STUCK AT MEMORY TEST 
TEST #, PC. PATTERN. DATA. PAR. VIRTUAL ADDRESS 
$ TMPl . $ ERRPC . $GDO AT . $ BD6aT . KIPAR2 . $BDADR 

PARITY ABORT OCCURED UITH PARITY ERROR DISABLED 

TEST PC 

$TMPl,iERRPC 



PARITY ABORT DID NOT OCCUR UITH PARITY ERROR ENABLED 

TEST *, PC 

JTMPl.iERRPC 



MER DIDN T HAVE CORRECT ADDRESS BITS 11-17 
TEST #, PC. EXPECTED DATA. RECEIVED DATA 
$TMPl.iERRk.$GOOAT.$BDDAt 

MER READ EXTENDED ADDRESS BITS HAS FAILED 
TEST #, PC. EXPECTED DATA. RECEIVED DATA 
$TMPl,iERR^C,$600AT.$BDDAt 



ERROR IN THE MEMORY 

TEST PC. PATTERN. DATA. PAR. VIRTUAL ADDRESS 
JTMPl.$ERR^C.JGDDAt.$BD6AT.KIPAR2.JBDADR 



13 



COKDDAO KDJll-DA CLUSTER DIAG. 
ERROR DEFINITIONS 



MACRO V05.03 Tuesday 07 -Jan -86 15:18 Page 13-5 



SEQ 0038 



1411 002204 

1412 002206 

1413 002210 

1414 002212 
1415 

1416 002214 

1417 002216 

1418 002220 

1419 002222 
1420 

1421 002224 

1422 002226 

1423 002230 

1424 002232 
1425 

1426 002234 

1427 002236 

1428 002240 

1429 002242 
1430 

1431 002244 

1432 002246 

1433 002250 

1434 002252 
1435 

1436 

1437 002254 

1438 0C2256 

1439 0C2260 

1440 002262 
1441 

1442 002264 

1443 002266 

1444 002270 

1445 002272 
1446 

1447 
1448 
1449 
1450 

1451 002274 

1452 002276 

1453 002300 

1454 002302 

1455 002304 

1456 002306 

1457 002310 

1458 002312 
1459 

1460 002314 

1461 002316 

1462 0023*j0 
1463 

1464 
1465 

1466 002322 

1467 002324 



023127 
023514 
024702 
000000 

023151 
023514 
024702 
000000 

023211 
023514 
024702 
000000 

023254 
023514 
024702 
000000 

023320 
023541 
025146 
000000 



023377 
023514 
024702 
000000 

023446 
023514 
024702 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

000000 
000000 
000000 



000000 
000000 



;ITEM 70 



;ITEH 71 



;ITEM 72 



;ITEM 73 



Em60 
DHl 
OTl 
0 

EM161 
DHl 
DTI 

0 

EM162 
DHl 
DTI 
0 

"Em63 
DHl 
OTl 
0 

5 

EM164 
DH4 
DT75 
0 



ERROR IN XCSR <6> 
TEST PC 
JTMPl.iERRPC 



NO XMIT INTERRUPTS HAVE OCCURED 

TEST PC 

JTMPl.iERRPC 



;N0 RECIEVE INTERRUPTS HAVE OCCURED 
JEST ( " 
:$TMP1, 



JEST *, PC 

— Jerrpc 



:ITEM 74 



;ITEM 75 



Em65 
DHl 
DTI 
.0 

^EM166 
OHl 
DTI 
0 



UNEXPECTED PARITY ABORT HAS OCCURED 

TEST PC 

JTMPl.iERRPC 



HER DION' T HAVE CORRECT ADDRESS BITS 0 AND 15 
TEST*. PC. EXTENDED DATA, RECEIVED DATA 
$TMPl.JERftPC.$GDDAT.$BDDAT 



TOO MANY TRANSIVER INTERRUPTS HAPPENED 
TEST PC 

$tmpi.Jerrpc 



TOO MANY RECEIVER INTERRUPTS HAPPENED 

TEST #, PC 

nMPl.JERRPC 



.SBTTL GLC9AL VARIABLES AND REGISTER NAMES 



REGISTERS FOR 



tSRl: 
CSR2: 
BA: 
UC: 
DATA: 
VQBEl: 
VQPRl: 
SIMGOA 

ledcnt 
RCOUNT 
TCOUNT 



.UORD 
.WORD 
.UORD 
.WORD 
.UORD 
.UORD 
.UORD 
.UORD 



THE 
0 
0 
0 
0 
0 
0 
0 
0 



FIRST Q22BE 



.Nord 0 
.UORD 0 
.UORD 0 



CONTROL REGISTER 1 FOR Q22BE 

CONTROL/STATUS REGISTER 2 

DMA ADDRESS FOR Q22BE 

UORD COUNT REGISTER 

DMA DATA FOR Q22BE 

ADDRESS OF VECTOR FOR Q22BE 

PRIORITY 

SIMULTANEUOS GO ADDRESS REGISTER 



iREGISTERS FOR THE SECOND Q22BE 
£SR12: .UORD 0 
CSR22: .UORD 0 



locat'on for the led count 
RECEIVER INTERRUPT COUNT 
TRANSMITTER INTERRUPT COUNT 



; CONTROL REGISTER 1 FOR Q22BE 
; CONTROL/STATUS REGISTER 2 



:mc 
:MC 
:MC 



N3 

COKDDAO KDJll-DA CLUSTER DIAG. MACRO V05.03 Tuesday 07 Jan-86 15:18 Page 13 6 
GLOBAL VARIABLES AND REGISTER NAMES 



SEQ 0039 



1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

151"' 

1518 

1519 

1520 

1521 

1522 

1523 

1524 



002326 
002330 
002532 
002334 
002336 

002340 
002342 
002344 
002346 

002740 
002742 
003000 
003002 



000000 
000000 
000000 
000000 
003000 

000000 
000000 
000000 
000000 
002740 
000000 

000000 
000002 



: '7524 
177524 
177520 
177746 
177752 
177734 
1775C6 
177/50 
177520 
172100 
177744 
177522 
177772 
177560 
177562 
177564 
177566 
176500 
176502 
176504 
176506 

177766 

177572 
177574 
177576 
172516 
120001 
000000 



BA2: 

UC2: 

DATA2 

VQ6E2 

VQPR2 

LK£ L: 

ACTCHS: 

SAVPCR: 

SAV6R: 

.=2740 

TEMP: 



TIMOUT : 
Q22EN: 



.UORO 
.UORO 
.UORO 
.WORD 
.UORO 

.UORO 
.UORO 
.UORO 
.WORD 

.UORO 
.BLKU 
.UORO 
.UORO 



0 
0 
0 
0 
0 

0 
0 
0 
0 

0 

15. 

0 

2 





i 1 fjc't 


oun- 


1 1 IJC'* 




i 1 IJC\J 


CCR= 


177746 


riITMIS= 


177752 


KMCR= 


177734 


LKS= 


177546 


MAIREG= 


177750 


NATREG= 


177520 


MER= 


172100 


MSER= 


177744 


PCR= 


177522 


PIR= 


Vim 


RCSk - 


177560 


RBUF= 


177562 


)(CSR= 


177564 


XBUF= 


177566 


RCSR1= 


176500 


RBUF1= 


176502 


XCSR1= 


176504 


XBUFl- 


176506 


CPEREG= 


177766 


MMR0=SR0 




MMR1=SR1 




MMR2*SR2 




MMR3=SR3 




P0LY= 120001 




NULL = 


0 


GLOBAL DATA 


SECTION 



DMA ADDRESS FOR Q22BE 

UORO COUNT REGISTER 

DMA DATA FOR Q22BE 

ADDRESS OF VECTOR FOR Q22BE 

PRIORITY 



; ACTUAL CHECKSUM 

; RESERVED FOR BLOCK MODE TRANSFER 
{PRIORITY 7-4 FOR Q22BE 



BOOT/DIAGNOSTICS CONFIGURATION 
BOOT/DIAGNOSTICS DISPLAY 
BOOT/DIAGNOSTICS STATUS 
CACHE CONTROL REGISTER 
HIT OR MISS REGISTER 
UNIBUS CONFIGURATION REGISTER 
CLOCK STATUS REGISTER 
MAINTENANCE REGISTER 
NATIVE REGISTER 
MEMORY ERROR REGISTER 
MEMORY SYSTEM ERROR 
PAGE CONTROL REGISTER 
PROGRAM INTERRUPT REQUEST 
RECEIVER STATUS REGISTER 
RECEIVER DATA BUFFER 
TRANSMITTER STATUS REGISTER 
TRANSMITTER DATA BUFFER 
RECEIVER STATUS REGISTER 
RECEIVER DATA BUFFER 
TRANSMITTER STATUS REGISTER 
TRANSMITTER DATA BUFFER 

CPU ERROR REGISTER 

MEMORY MANAGEMENT REG. 0 

MEMORY MANAGEMENT REG. 1 

MEMORY MANAGEMENT REG. 2 

MEMORY MANAGEMENT REG. 3 



.SBTTL 



; THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
; IN MORE THAN ONE TEST. 

• 

;THESE LOCATIONS ARE USED IN MORE THAN ONE TEST TO STORfc VECTOR DAT^. 
.UHEN THE TEST NEEDS TO HAVE AN ERROR CONDITION RESPOND DIFFERENTL" 
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SEQ 0040 



1525 

1526 003004 

1527 003006 
1528 

1529 

1530 003010 

1531 003012 

1532 003014 

1533 003016 

1534 003020 

1535 003022 

1536 003024 

1537 003026 

1538 003030 

1539 003032 

1540 003034 

1541 003036 

1542 003040 

1543 003042 

1544 003044 

1545 003046 

1546 003050 

1547 003052 

1548 003062 

1549 003072 

1550 003074 

1551 003076 

1552 003100 

1553 0C3110 

1554 003120 

1555 003122 

1556 003132 

1557 003142 
1558 

1559 

1560 003152 

1561 003154 
1562 

1563 

1564 003156 

1565 003160 
1566 

1567 

1568 003162 

1569 003164 
1570 

1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 



000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 



000000 



000000 
000000 



000000 
000000 



000000 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 



:FROM THE DEFAULT RESPONCE. 
SLOCOO: .WORD 0 
SLOCOl: .UORD 0 



:THESE 

PARPAT 

SAVTIM 

LOUADD 

GOOD AD 

ERRCNT 

TSTADD 

NEUADD 

FLAG: 

CCHPAS 

EEPAS: 

SAVSUP 

SAVUSE 

SAVMRO 

SAVMRl 

SAVMR2 

SAVSUP 

MERTAG 

FLOAT: 

FLO: 

SEQ: 

SPS: 

SPSJ: 

BTEXP: 

BTRES: 

COUNT: 

RECFEC 

RECST: 

RECDST 



LOCATIONS ARE 
UORD 0 



.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.BLKU 
.BLKU 
.UORD 
.UORD 
.UORD 
.BLKU 
.BLKU 
.UORD 
.BLKU 
.BLKU 
.BLKU 



0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
4 
4 
0 
0 
0 
4 
4 
0 
4 
4 
4 



USED IN MORE 'HAN ONE TEST TO STORE UORKING DATA. 

:LOCATION TO SAVE PATTERN USED IN PARITY TEST 
; LOCATION TO THE SAVE THE TIMEOUT TRAP 
; STORES LOU ADDRESS FOR RAM TESTS 
; STORES GOOD ADDRESS FOR RAM TESTS 
; CONTAINS TOTAL NO. OF EEROM ERRORS 
; ADDRESS STORE FOR RAM TESTS 
[ADDRESS STORE FOR RAM TEST 
[USED TO STORE "FLAG" CONDITIONS 

flag-counter for control of Cache subtests 
, flag-counter for control of EEROM subtest 
;USED TO STORE SUPERVISOR STACK VALUE 
:USED TO STORE USER STACK VALUE 
[USED TO STORE MMU STATUS REGISTER 0 DATA 
[USED TO STORE MMU STATUS REGISTER 1 DATA 
[USED TO STORE MMU STATUS REGISTER 2 DATA 
SAVE SFTURE SUTCH REG DURING EEROM TEST 

USED TO STORE VALUES FOR MMU TESTS 
USED TO STORE VALUES FOR MMU TESTS 
STORES SEQUENCE NUMBER FOR JUMP TESTS 
STORES STACK POINTER FOR JUMP TESTS 
STORES STACK POINTER FOR JUMP TESTS 
STORES EXPONENT DURING BIT TESTS 
STORES RECIEVED DATA FOR BIT TESTS 
ERROR INDICATOR FOR FLOATING POINT TESTS 
RECIEVED FLOATING POINT EXCEPTION CODE 
RECIEVED FLOATING POINT STATUS 
DESTINATION ADDRESS FOR FLOATING POINT TESTS 



:THESE LOCATIONS ARE USED BY MORE THAN ONE TEST AS LOOP COUNTERS 
ALLCTR: .UORD 0 
LOOPIN: .UORD 0 

iSOME MORE TEMPORARY STORAGE FOR RAM TESTS 

SAVPOS: .UORD 0 .-STORES TEMPORARY BIT POSITIONS FOR RAM TESTS 

MASK: .WORD 0 ; STORES BIT MASK FOR ERROR ISOLATION 

! ! ! I ! THIS IS IT . THE PROGRAM TEST LOCATION! !!!!!!!!!!!!!!!!! 
.UORD 0 
.BLKU 20. 

:FPP REGISTER DEFINITIONS 
ACO' KO 
AC1= Kl 
AC2= K2 
AC3= K3 
AC4= <4 
AC5= K5 
AC6= K6 
AC7» K7 

;FPP INTERRUPT VECTOR 
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GLOBAL DATA SECTION 



SEQ 0041 



003234 

1590 003236 

1591 0-03240 

1592 003242 

1593 003244 

1594 003246 

1595 003250 

1596 003252 

1597 003254 

1598 003256 

1599 003260 

1600 003262 

1601 003264 

1602 003266 

1603 003270 

1604 003272 

1605 003274 

1606 003276 

1607 003300 

1608 003302 

1609 003304 

1610 0C3306 

1611 0C3310 

1612 003312 

1613 003314 

1614 003316 

1615 003320 

1616 003322 

1617 0033:?4 

1618 003326 

1619 003330 

1620 003332 

1621 003334 

1622 003336 

1623 003340 

1624 003342 

1625 003344 

1626 003346 

1627 003350 

1628 003352 

1629 003354 
003362 

1630 003364 

1631 003366 

1632 003370 

1633 003372 

1634 0C55/4 

1635 J03376 

1636 OJ3400 

1637 003402 

1638 003404 



000244 



001000 



123456 

000000 

000000 

000001 

055555 

177777 

145671 

100000 

003000 

123456 

000000 

000000 

055555 

177777 

000000 

000000 

043243 

000000 

000000 

000000 

162400 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

047050 

010000 

000000 

000000 

000200 

000000 

000000 

000000 

000200 

000000 

000000 

000001 

000400 

000000 

030000 

003000 

000000 

000000 

016400 

000000 

000000 

000000 

030000 



TABl: 

T'32: 

TABS: 

TAB4: 

TABS: 

TAB5A: 

TAB6: 

TAB6A: 

TAB7: 

TAB8: 

000000 000000 TAB9: 
TABIO: 

TABU: 

003000 000002 TABllA: 



FPVEC=244 



:.30T» 1000 



.WORD 123456 

.UORO 000000 

.WORD 0 

.WORD 1 

.WORD 055555 

.WORD 177777 

.WORD 145671 

.WORD lOOCCO 

.UORD 003000 

.UORO 123456 

.UORD 0 

.UORD 0 

.WORD 55555 

.WORD -1 

.UORD 0 

.UORD 0 

.UORO 43243 

.UORD 0 

.UORO 0 

.WORD 0 

.UORD 162400 

.UORO 0 

.UORD 0 

.UORD 0 

.UORO 0 

.UORD 0 

.UORO 0 

.UORD 0 

.UORD 47050 

.UORD 10000 

.UORD 0 

.UORD 0 

.UORD 200 

.UORD 0 

.UORO 0 

.UORO 0 

.UORD 200 

.UORD 0 

.UORD 0 

.WORD 1 

.UORD 400,0.0.0 

.UORD 30000 

.UORD 3000 

.UORD 0 

.UORD 0 

.UORD 16400 

.UORD 0 

.UORD 0 

.UORD 0 

.UORD 30000.3000.2.0 
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EQ 0042 



003412 

1639 003414 
003422 

1640 003424 

1641 003426 

1642 003430 

1643 003432 

1644 003434 
003442 

1645 003444 

1646 003446 

1647 003450 

1648 003452 

1649 003454 

1650 003456 

1651 003460 

1652 003462 

1653 003464 

1654 003466 

1655 003470 

1656 003472 

1657 003474 

1658 003476 

1659 003500 

1660 003504 

1661 003506 

1662 003510 

1663 003512 

1664 0C3514 
003522 

1665 003524 
003532 

1666 003534 
003542 

1667 003544 
003552 

1668 003554 
003562 

1669 003564 
003572 

1670 003574 
003602 

1671 003604 
003612 

1672 003614 
003622 

1673 003624 
003632 

1674 

1675 003634 
003642 

1676 003644 
003652 

1677 003654 
005662 

16 '8 003664 
003672 



000000 

016100 

000001 

016200 

000000 

000000 

000001 

030000 

140000 

030000 

000000 

000000 

000000 

024700 

000000 

000000 

000000 

025000 

175363 

123456 

123456 

030000 

007020 

000000 

023456 

000000 

000000 

000001 

100200 

000000 

100400 

000000 

000200 

000001 

062400 

000000 

001100 

000000 

100600 

000000 

001000 

000000 

000600 

000000 

010100 

000000 

010100 

000000 

000500 
000000 
100400 
000000 
016000 
000000 
011600 
000000 



000000 000000 TAB12: 
TAB13: 

003000 000000 TAB13B: 
TAB14: 

TAB15: 



TAB16; 

TAB17: 
TAB18: 



000000 



.UORO 16100.0.0.1 

.WORD 16200 

.WORD 0 

.UORO 0 

.UORO 1 

.UORD 30000.3000.0.140000 

.UORD 30000 

.UORO 0 

.UORO 0 

.UORD 0 

.UORD 24700 

.UORD 0 

.UORD 0 

.UORD 0 

.UORD 25000 

.UORD 175363 

.UORO 123456 

.UORD 123456 

.UORD 30000 

.UORD 7020 

.WORD 0.0 

.WORD 2^456 

.UORD 0 

.UORD 0 
.UORD 



000000 


000000 


TAB21 


.UORD 


100200.0,0.0 


000000 


000000 


TAB22 


.UORD 


100400,0.0,0 


000000 


000000 


TAB23 


.UORD 


200.0.0.1 


000000 


000000 


TAB24 


.UORD 


62400.0.0,0 


000000 


000000 


TAB25 


.UORD 


1100.0.0.0 


000000 


000000 


TAB26 


.UORD 


100600.0.0.0 


000000 


000000 


TAB27 


.UORD 


1000.0.0.0 


000000 


000000 


TA628 


.UORO 


600.0.0.0 


000000 


000000 


TAB29 


.UORO 


10100.0.0.0 


000000 


002000 


TAB29A: .UORD 


10100.0.2000,0 


000000 


000000 


tAB30 


.UORD 


500.0.0.0 


000000 


000000 


TAB31 


.UORD 


100400.0,0.0 


000000 


000000 


TAB32 


.UORD 


16000.0.0.0 


000000 


000000 


TAB33 


.UORD 


11600.0.0.0 



E4 
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GLOBAL DATA SECTION 



SEQ 0043 



1679 003674 
003702 

1680 003704 
003712 

1681 003^14 
003722 

1682 003724 
003732 

1683 003734 
003742 

1684 003744 
003752 

1685 003754 
003762 

1686 003764 
003772 

1687 003774 
004002 

1688 004004 
004012 

1689 004014 
004022 

1690 

1691 004024 

1692 004026 

1693 004030 

1694 004032 

1695 004034 

1696 004036 

1697 004040 

1698 004042 

1699 004044 

1700 004046 

1701 004050 

1702 004052 
1703 

1704 

1705 004054 

004054 
004060 
004062 
004070 
004072 
004100 
004106 
004110 
004116 
004120 
004124 
004132 
004140 
004142 
004144 
004146 
004150 
004152 



000640 
000000 
077600 
000000 
100200 
000001 
000340 
000000 
000077 
177776 
000577 
177777 
000577 
000000 
173737 
012346 
000000 
012346 
173737 
000000 
000600 
000000 

000000 
OAOOOO 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



005737 
001034 
032737 
001430 
012737 
032737 
001403 
012737 
104042 
005060 
013737 
013737 
000404 
OOOC ; 
000000 
000000 
000000 



A A A A A A 

000000 


A A A A A A 

000000 


TAB34 


. .UORD 


640.0,0.0 


/\ A A A A A 

000000 


A A A A A A 

000000 


TAB40 


.UORD 


77600,0.0.0 


AA AA AA 

000000 


A/\ AA A A 

000000 


TAB41 


.UORD 


i AAMAA AAA 

100200,0,0.1 


AAA AAA 

000000 


A A AA AA 

000000 


TAB42 


.UORD 


340.0,0.0 


177777 


177777 


TAB43 


.UORD 


M ^^^^^ a ^^^^"V » ^^^^^ 

77 , 177777 , 177777 , 177776 


177777 


177777 


TAB45 


.UORD 


577,-1,-1.-1 


mm 


000000 


TAB46. 


.UORD 


577.-1.0.0 


124242 


052525 


TAB47: 


.UORD 


173737.124242.052525.12346 


000000 


052525 


TAB47A: .UORD 


0.0,052525,12346 


124242 


000000 


TAB48: 


.UORD 


173737,124242,0.0 


000000 


000000 


TAB49: 


.UORD 


600,0,0.0 



004142 

000040 

177777 
000100 



000052 

004146 
00005? 



177777 0041d0 



000042 
000030 
000032 



004142 
004144 



DCOUNT 

EXPDAT 

RECDAT 

PUDSEQ 

ADLSB 

RITEDA 

NEUDAT 

CURDAT 

FSTADD 

LSTADD 

CURADD 

PARABT 



START: 

LCP/ORION 

fMTSAV: TST 
BNE 
BIT 
BEQ 
MOV 
BIT 
BEQ 
MOV 

IJ: EMT 
CLR 
MOV 
MOV 
BR 

.UORD 
.UORD 



.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 



0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 



SAV30: 
SAV32: 



UFDFLG: .UORD 
UQUIET: .UORD 
VMKOR: 



ROUTINE TO SAVE 
SAV30 
VMKOR 

#BIT5,a«2 
VMKOR 

*-l.UFDFLG 
#BIT6,3#52 
1$ 

<f-l, UQUIET 
42 

42(R0) 
30,SAV30 
32,SAV32 
VMKOR 
0 
0 
0 
0 



;PARIY ABORT PLAG 



EMTULATOR AND PRIORITY 

FIRST TIME THROUGH ? 
BRANCH IF BEEN HERE ALREADY 
ARE UE IN UFO MODE ? 
LEAVE IF NOT 
SET UFD FLAG 
ARE UE IN QUIET MODE ? 
BR IF NOT 
SET QUIET MODE 

GET ADDRESS OF XXDP DCA TABLE 
CLR XXDP* "DRSERR" 
SAVE EMULATOR ADDRESS 
SAVE EMULATOR PRIORITY LEVEL 
GET AROUND TAG AREA 
PUT EMULATOR INFO HERE 
PUT PRIORITY LOCATION HERE 
USER FRIENDLY MODE FLAG 
UFD QUIET MODE FLAG 
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SEQ 0044 



I 706 004152 



004152 
004156 
004160 
004164 
004166 

004172 
004200 
004206 
004214 
004222 
0042 30 
004236 
004244 
004252 
004260 
004264 
004270 
004276 
004304 



012706 
005026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
013737 
005037 
005037 
112737 
012737 
012737 



001100 

001140 

OOllOC 

030150 
000340 
030452 
000340 
033176 
000340 
033260 
000340 
030062 
001164 
001166 
000001 
004276 
004304 



000020 
000022 
000030 
000032 
000034 
000036 
000024 
000026 
030054 



001115 
001106 
001110 



************ 

i$: 

.SBTTL INITI 
CLEAR THE C 
MOV 
CLR 
CMP 
BNE 
MOV 

;: INITIALIZE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
MOVB 
MOV 
MOV 

::SIZE FOR A 
EQUAL TO A 



************************************ ii********************* 



004312 


013746 


000004 






MOV 


004316 


012737 


004352 


000004 




MOV 


004324 


012737 


177570 


001140 




MOV 


004332 


012737 


177570 


001142 




MOV 


004340 


022777 


177777 


174572 




CMP 


004346 


001012 








BNE 


004350 


000403 








BR 


004352 


012716 


004360 




30000$: 


MOV 


004356 


000002 








RTI 


004360 


012737 


000176 


001140 


30001$: 


MOV 


004366 


012737 


000174 


001142 




MOV 


004374 


012637 


000004 




30002$: 


MOV 


004400 


005037 


001206 






CLR 


004404 


132737 


000200 


001221 




BITB 


004412 


001403 








BEQ 


004414 


012737 


001222 


001140 




MOV 


004422 








30003$: 




1707 004422 


013737 


004146 


004150 




MOV 


1708 004430 


012737 


026402 


000004 




MOV 


1709 004436 


012737 


000340 


000006 




MOV 


1710 004444 


012737 


025664 


000114 




MOV 


1711 004452 


012737 


000340 


000116 




MOV 


1712 004460 


012737 


026564 


000250 




MOV 


1713 004466 


012737 


000340 


000252 




MOV 


1714 004474 


005037 


177766 






CLR 


ri5 004500 


032737 


000100 


000052 




BIT 


1716 004506 


001164 








BNE 


1717 004510 


104401 


016302 






TYPE 


1718 








.SBTTL 


GET 


004514 


005737 


000042 






TST 



ALIZE THE COMMON TAGS 
OMMON TAGS ($CMTA6) AREA 

*$CMTAG.R6 ;; FIRST LOCATION TO BE CLEARED 

(R6)* ;;CLEA9 MEMORY LOCATION 

#SUR.R6 ::DONE? 

.-6 ;;LOOP BACK IF NO 

#STACK.SP SETUP THE STACK POINTER 

FEU VECtORS 

*$SCOPE.a*IOTVEC ::IOT VECTOR FOR SCOPE ROUTINE 
#340.a*l0TVEC>2 LEVEL 7 

#$ERROR.a#EMTVEC :;EMT VECTOR FOR ERROR ROUTINE 
#340,a*fMTVECi2 ;: LEVEL 7 
#$TRAP.a*TRAPVEC ;iTRAP VECTOR FOR TRAP CALLS 
"340.3#TRAPVEC*2;LEVEL 7 



#$PUftON.3#PURVEC 
#340.8#URVEC+2 

$end£t.$eopct 

$TIMES 
$ESCAPE 
#1.$ERMAX 
#..$LPADR 
* ,$LPERR 



iPOUER FAILURE VECTOR 
LEVEL 7 

SETUP END-OF -PROGRAM COUNTER 
INITIALIZE NUMBER OF ITERATIONS 
CLEAR THE ESCAPE ON ERROR ADDRESS 
ALLOW ONE ERROR PER TEST 
INITIALIZE THE LOOP ADDRESS FOR SCOPE 
...... xiSETUP THE ERROR LOOP ADDRESS 

HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
"-1". SETUP FOR A SOFTWARE SWITCH REGISTER. 
a*ERRVEC,-(SP) :;SAVE ERROR VECTOR 
*30000$.S*ERRVEC i:SET UP ERROR VECTOR 

*OSWR,SWR SETUP FOR A HARDWARE SWICH REGISTER 

AND A HARDWARE DISPLAY REGISTER 
TRY TO REFERENCE HARDWARE SWR 
BRANCH IF NO TIMEOUT TRAP OCCURRED 
AND THE HARDWARE SWR IS NOT = -1 
BRANCH IF NO TIMEOUT 
SET UP FOR TRAP RETURN 



*DOIS^ DISPLAY 

*-l.3SUR 

30062$ 



30001$ 

#30001$. (SP) 



SSWREG.SWR POINT TO SOFTWARE SWR 

#DISPRfG. DISPLAY 

(SP)*.8#ERRVEC :;RESTORE ERROR VECTOR 

; CLEAR PASS COUNT 

iTEST USER SIZE UNDER APT 
! YES. USE NON-APT SWITCH 
; NO. USE APT SWITCH REGISTER 



$PASS 
#APTSIZE.$ENVM 
30003$ 
#$SWREG.SWR 



UFDFLG.UQUIET 
#TOUT,SdERRVEC 
*340.a#ERRVECi2 
#RAMPAR,a#114 
*340.3*116 
#MMUtRP, 3*250 
*340.3#252 
3*17)766 
#BIT06,3#52 
LOOP 
.SWTSEl 
VALUE FOR SOFTWARE ^ 
3«42 



ABORT IN UFD ON ERROR 

POINT TO TIMEOUT ROUTINE 

AT PRIORITY 7 

POINT PARITY ABORT 

AT PRI0RITY7 

POINT MMU TRAP VECTOR 

CLEAR CPU ERROR REGISTER 
IN UFD QUIET MODE ? 
IF SO. SKIP PRINTOUT 

WITCH REGISTER 

;;ARE WE RUNNING UNDER XXOP/ACT? 



u4 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 



SEQ 0045 



1719 

1720 
1721 

1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
r49 
1750 
1751 



004520 
004522 
004530 
004532 
004540 
004542 
004544 
004546 
004554 
004554 
004556 
004564 
004566 
004572 
004574 

004576 
004602 
004604 
004606 
004610 
004612 
004614 
004616 

004620 
004624 
004626 
0C4634 
004636 
004644 
004646 
004654 



004656 
004664 
004666 
004672 



001012 
123727 
001406 
023727 
001005 
104406 
000403 
112737 

000240 
ii3727 
001020 
013700 
005700 
001420 

042700 
000241 
006000 
006000 
006000 
006000 
005700 
001413 

010037 
000413 
012737 
000407 
012737 
000403 
012737 
000240 



032737 
001437 
104401 
000433 



001220 
001140 

000001 

001220 
001224 

000017 



000001 
000176 

001134 
000001 



BNE 

CMPB 

BEQ 

CMP 

BNE 

GTSUR 

BR 

30004$: MOVB 
30005$: 

NOP 

CMPB 

BNE 

MOV 

TST 

BEQ 

BIC 
CLC 
ROR 
ROR 
ROR 
ROR 
TST 
BEQ 



003030 
17^777 
000001 
000000 



003030 
003030 
003030 



20$; 

25$; 

30$; 
35$; 



MOV 

BR 

MOV 

BR 

MOV 

BR 

MOV 

nop 

BIT 
BNE 



30004$ 

$ENV,*1 

30004$ 

SUR.«SUREG 

30005$ 

30005$ 
#1.$AUT0B 



$ENV,#1 
20$ 

$USUR,RO 

RO 

25$ 

#17.R0 

RO 
RO 
RO 
RO 
RO 
30$ 

RO.CCHPAS 
35 J 

*-l.CCHPAS 
35$ 

#1,CCHPAS 
35 i 

W.CCHPAS 



#BIT07.S*52 
LOOP 



BRANCH IF YES 

ARE WE RUNNING UNDER APT? 

BRANCH IF YES 

SOFTWARE SWITCH REG SELECTED? 

BRANCH IF NO 

GET SOFT SWR SETTINGS 

J SET AUTO -MODE INDICATOR 

debug ad 
running under APT? 
default no- APT initialzation 
work copy pass calculation 
f = 0 default value 
setup default value 

clear low order nibble 
assure no unknowns 
4 rotates = divide 
by 16 (=pass time) 
tnis area subroutined 
with general purpose 
divide, this test to 
determine skip altogether 

residue = no. of desired passes 
continue on 

largest number no apt mode?? 

normal default = 1 

no cache tests included 
debug aid 

UFD MODE? 

IF YES. BRANCH 



000010 
004674 



177750 



tttitttt 



004762 

1752 

1753 004762 000434 
1754 

1755 004764 

004764 104401 004772 
004770 000431 

005054 

1756 

1757 005054 004737 025730 
r58 

r59 



ii 30007$ 
i6006$: 



Xii'' ''''>' an Ik •'■'Ha^'^^^ on error JUMPER 
Bit i61t6i.MAlAEG 

BEQ 99$ 

TYPE .30007$ TYPE ASCIZ STRING 

BR S0006$ ssGET OVER THE ASCIZ 

.ASCIZ <15><12>/fRAP ON HALT IS ENABLED. JUMPER IS NOT INSTALLED/<15><12> 



99$: 



6R 



TYPE 
BR 



::30009$ : 
30008$ : 

1000$: JSR 



1000$ 



.30009$ ;;TYPE ASCIZ STRING 

30008$ ;;GET OVER THE ASCIZ 

.ASCIZ <15><12>/TRAP ON HALT IS DISABLED, JUMPER IS INSTALLED/<15><12> 



PC.Q22SIZ 



:SIZE FOR Q22BE 



H4 
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GET VALUE FOR SOFTUARE SWITCH REGISTER 



1760 

1761 005060 LOOP: 

1762 

1763 

1764 



14 



COKOOAO KOJll-DA CLUSTER OIAG. 
TEST - NATIVE REGISTER 



1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
,776 
,777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 



1789 
1790 
1791 



1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 



005060 
005062 
005070 
005072 
005076 

005142 
005142 
005142 
005150 
005156 
005164 



005170 
005176 
005202 
005204 
005206 
005210 



005212 
005220 
005226 
005230 
005232 
005236 
005242 
005242 
005246 



000004 
032777 
001424 
104401 
000421 



013737 
012737 
012737 
013700 



052737 
013701 
020001 
001402 
104047 
000445 



042737 
0^2737 
001401 
104050 
012701 
012702 

050137 
03C137 
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.SBTTL TEST - NATIVE REGISTER 
NATIVE REGISTER TEST 

This test checks out the native register's ex stance and it's 
various b'ts. 

BGNTST 

Set up timeout vector PC to TIMOUT 
Set up timeout vector PSW to 7 
Read the Native register 
Check out the bootstrap switch as read only 
Check out the module functional revision as read only 
Check out that the self -test enable bit works 
Check out he indicators (i.e LEDS) 
ENDTST 

TIMOUT: Clean stack 

Error NATIVE register timed out 



SEQ 0047 



010000 
005100 



000004 
005320 
000340 
177520 



160000 
177520 



174050 



003012 
000004 
000006 



177520 



000177 
000177 



000001 
000007 

177520 
177520 



177520 
177520 



! NATIVE REGISTER TEST 
tSTl: SCOPE 

BIT #BIT12.aSUR ; IF BIT 12 IS SET IN SOFTWARE SUITCH REGISTER 
BEQ^ 1000$ : THEN TYPE TEST TRACE 

TYPE .30011* TYPE ASCIZ STRING 

BR 30010$ ;:GET OVER THE ASCIZ 

.ASCIZ <15><12>/tEST 1 - NATIVE REGISTER TEST/ 



::30011$ 
^0010$: 
1000* 



MOV 
MOV 
MOV 
MOV 



S*4.SAVTIM 
U00$,S#4 
«40.a#6 
NATREG.RO 



CHECK BITS 15-13 READ ONLY 

BIS *160000.NATREG 

MOV NATREG.ftl 

CMP RO.Rl 

BEQ lOi 

ERROR ^47 

BR 110$ 

CHECK THE INDICATOR BITS 



io$: 

20$: 
25$: 



BIC 

BIT 

BEQ 

ERROR 

MOV 

MOV 

BIS 
BIT 



#177.NATREG 

#177,NATREG 

20$ 

♦50 

#1.R1 

#7.R2 

Rl.NATREG 
Rl.NATREG 



SAVE UNEXPECTED TIMEOUT TRAP 
SET UP TIMEOUT TRAP 

READ THE NATIVE REGISTER 



TRY TO WRITE TO THE FUN REV BITS 
READ THE NATIVE REGISTER AGAIN 
IF IT CHANGED THEN 

ERROR IN NATIVE REGISTER 



CLEAR THE INDICATOR BITS 
IF THE BITS DI^N' T CLEAR 
: THEN 

: ERROR IN THE NATIVE REGISTER 

START PATTERN IN FIRST BIT 

SET LOOP COUNT TO 7 

FOR ALL BITS THE ARE INDICATOR DO 

: SET THE BIT 

: CHECK THAT IT GOT SET 



Cj<DOrtO KDJll-DA CLUSTER DIAG. 
TEST NATIVE REGISTER 
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1819 005252 

1820 005254 

1821 005256 

1822 005260 

1823 005262 

1824 005264 
1825 

1826 
1827 

1828 005272 

1829 005276 

1830 005304 

1831 005310 

1832 005312 

1833 005314 

1834 005316 

1835 005320 

1836 005322 
1837 

1838 005324 

1839 005324 
1840 



001002 
104050 
000422 
006301 
077211 
042737 



013700 
052737 
013701 
020100 
001404 
104051 
000402 
104052 
022626 



30$: 



000177 177520 



BNE 

ERROR 

BR 

ASL 

SOB 

BIC 



30$ 
^50 
110$ 
Rl 

R2.25$ 
#177,NATREG 



177520 
007400 
177520 



177520 



CHECK THE BOOT SWITCH TO BE READ ONLY 



MOV NATREG.RO 

BIS #7400.NATRE6 

MOV natre6,ri 

CMP Rl.RO 

BEQ ll6$ 

ERROR ^51 

BR 110$ 

ERROR ^52 

CMP (SP)*,(SP)* 



013737 003012 000004 



100$: 



110$: 



MOV SAVTIM,a#4 



SEQ 0048 



: IF NOT THEN 

: ERROR IN THE INDICATOR BITS 

; SHIFT PATTERN TO NEXT BIT 
ENDFOR 

CLEAR THE INDICATORS 



HEAD THE NATIVE REGISTER 
TRY TO WRITE TO THE BOOT SELECT SWITCH 
READ IT AGAIN 
IF THE BITS CHANGED THEN 
ERROR IN THE NATIVE REGISTER 



ERROR IN THE NATIVE REGISTER 
ENOTS" 



RESTORE UNEXPECTED TIMEOUT :MC 



<'4 
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TEST - 16 BIT ROM CHECKSUM TEST 



SEQ 0049 



842 
843 
844 
845 
846 
847 

005332 

1848 005334 

1849 0'35342 

1850 005344 
005350 



005420 

1851 005420 

1852 005420 

1853 005422 

1854 005426 

1855 005434 

1856 005440 

1857 005446 

1858 005450 

1859 005452 

1860 005454 

1861 005460 

1862 005462 

1863 005464 
im 005466 

1865 005472 

1866 0C5474 

1867 005502 

1868 005506 

1869 005510 

1870 005512 

1871 005514 
18^2 005516 
1873 005520 
1874 

1875 
1876 



000004 
032777 
001426 
104401 
000423 



SBTTL TEST - 16 BIT ROM CHECKSUM TEST 
ROM'S CHECKSUMS 

16 BIT ROM TEST 



010000 
005352 



173576 



000437 




004737 


027060 


012737 


017600 


012701 


040000 


052737 


000200 


012102 




011103 




005000 




012701 


040000 


062100 




005302 




001411 




020127 


060000 


103772 




062737 


000200 


012701 


040000 


000764 




005400 




020003 




001401 




104004 





172344 
177520 



172344 



tST2: SCOPE 
BIT 
BEQ 
TYPE 
BR 
30013$: 

36012$: 

1000$: 

BR 

JSR 
MOV 
MOV 
BIS 

10$: MOV 
MOV 
CLR 
MOV 

20$: ADD 
DEC 
BEQ 
CMP 
BLO 
ADD 
MOV 
BR 

30$: NEC 
CMP 
BEQ 
ERROR 

40$: 



#BIT12.aSUR ; IF BIT 12 IS SET IN SOFTWARE SUITCH REGISTER 

1000$ : THEN TYPE TEST TRACE 

.30013$ ;;TYPE AkiZ STRING 

30012$ ::GET OVER THE ASCIZ 

-ASlIZ <15><12>/TEST 2 - KDJll-D ROM CHECKSUM TEST/ 



TST3 

PC.SETMMU 

#17600.a*l<IPAR2 

#40000. Rl 

#BIT7.a*NATREG 

(R1)*.R2 

(Rl).ft3 

RO 

#40000.R1 

(Rl)t.RO 

R2 

30$ 

Rl, #60000 
20$ 

#200.a*KIPAR2 
#40060. Rl 
20$ 
RO 

R0.R3 

40$ 

t4 



;:G0 TO THE NEXT TEST SKIP THIS TEST UNTIL UE GET FINAL ROMS 
SET UP HE MMU REGISTERS 
POINT PAGE 2 TO SELF TEST 
POINT Rl TO PAGE 2 
ENABLE THE SELF TEST ADDRESS 



4 



COKODAO KDJll-DA CLUSTER DIAG. 
TEST - KDJll-OA DATA PATHS 



878 

879 

880 

881 

882 

883 

884 

885 
.886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 

005520 

1908 005522 

1909 005530 

1910 005532 
005536 
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SEQ 0050 



1911 
1912 
1913 
1914 
1915 
1^16 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1«30 



005604 
005604 
005604 
005612 
005620 
005626 
005632 
005634 
005640 
005644 
005644 
005650 
005654 
005656 
005664 
005672 
005674 
005676 

005700 
005706 



0C0004 
032777 
001425 
104401 
000422 



013737 
012737 
012737 
005737 
010701 
062701 
012702 

011137 
023721 
001410 
013737 
016137 
104044 
000401 
077216 

013737 
000415 



SBTTL TEST - KDJll-DA DATA PATHS 
DATA PATH TEST 

This test checks out the data and address paths on the KDJll-D 
Board. The patterns used Mill be: 

0 

177777 
177400 
170360 
007417 
052525 
125252 

BGNTST 

Set Timeout trap to TIMQUT 
Set t meout priority to 7 
Read location 0 
^OR pattern := first to last 

Write pattern 

Read pattern 

IF Pattern read <> Pattern Written THEN 

ERROR 
ENDFOR 
ENDTST 



010000 
005540 



000004 
005710 
000340 
000000 

000070 
000007 

000000 
000000 

000000 
177776 



173410 



003012 
000004 
000006 



************** 

tSt3: scope 

BIT 
BEQ 
TYPE 
BR 

:i30015$: 
56014i : 
1000$: 

MOV 
MOV 
MOV 
TST 
MOV 
ADD 
MOV 



;OATA PATH TESTS 
*************************************************** 



4eiT12.SSUR 
1000 J 
.30015$ 
30014$ 



IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 

THEN TYPE TEST TRACE 
;TYPE ASCIZ STRING 
GET OVER THE ASCIZ 



ASCIZ <15><12>/tEST 3 - KDJll-D DATA PATH TEST/ 



5$: 



001126 
001124 



10$: 



003012 000004 15$: 



MOV 

CMP 

BEQ 

MOV 

MOV 

ERROR 

BR 

SOB 

MOV 
BR 



3#4,SAVTIM 

«106$.S«4 

#340. 3#6 

S#0 

PC.Rl 

#PATT-..R1 

#7.R2 

(Ri),a#o 
a*o.(Ri)* 

10$ 

a#0.$BD0AT 

-2(ftl).$GDDAT 

♦44 

15$ 

R2.5$ 

SAVTIM.a*4 
TST4 



SAVE UNEXPECTED TIMEOUT TRAP ;MC 
SET UP THE TIMEOUT TRAP 

READ LOCATION 0 
GET A POINTER TO THE PATTERNS 

SET THE LOOP COUNT TO 7 
FOR ALL OF THE PATTERNS 
WRITE THE PATTERN TO 0 
IF THE PATTERN IS NOT READ BACK 
THEN 
GET READ DATA 
GET EXPECTED DATA 
ERROR IN THE DATA PATHS 
END IF 
ENDFOR 
END TEST 

: RESTORE UNEXPECTED TIMEOU"' TRAP 
::G0 TO THE NEX^ TEST 



I '-'4 

COKDDAO KDJll-OA CLUSTER OIAG. 

TEST - K-DJU-DA DA"A PATHS 

1931 
1932 
1933 
1934 
1935 
1936 

1937 005710 104045 

1938 005712 022626 

1939 005714 013737 003012 

1940 005722 000407 
1941 

1942 005724 000000 

1943 005726 177777 

1944 005730 177400 

1945 005732 170360 

1946 005734 007417 

1947 005736 052525 

1948 005740 125252 
1949 
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SEQ 0051 



TIMEOUT ROUTINE 



000004 



100$; 



PATT: 



ERROR 
CMP 
MOV 
BR 

.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 



+45 

(SP)».(SP)» 

SAVTIM,a#4 

TST4 

0 

177777 
177400 
170360 
007417 
052525 
125252 



: CLEAN STACK 
^« i RESTORE UNEXPECTED TIMEOUT TRAP 
;;G0 TO IhE NEXT TEST 



N4 
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TEST HEHORY ACCESSABILITY 



SEQ 0052 



951 

9^1 
9^4 
955 
956 
937 
958 
959 
960 
1961 
1%2 
1%3 
1964 
1965 
1%6 
1%7 
1%8 
1%9 
1970 
1971 
1972 
1973 

005742 000004 

1974 005744 032777 010000 

1975 005752 001426 

1976 005754 104401 005762 
005760 000423 



006030 

1977 006030 

1978 006030 

1979 006036 

1980 006044 

1981 006052 

1982 006056 

1983 00606? 

1984 006070 

1985 006070 

1986 006074 

1987 006100 

1988 006102 

1989 006110 

1990 006114 

1991 006122 

1992 006124 

1993 006132 

1994 006134 
1995 

1996 
1997 
1998 

1999 006134 

2000 006136 

2001 006140 

2002 006142 

2003 006146 



013737 
012737 
012737 
004737 
012701 
012737 

142721 
020127 
103773 
062737 
012701 
023727 
001362 
013737 
000411 



000004 
006134 
000340 
027060 
040000 
001600 

000377 
060000 

000200 
040000 
172344 

003012 



005301 
104046 
022626 

005037 177572 
013737 003012 



173166 



003012 
000004 
000006 



172344 

172344 
020000 
000004 



SBTTL TEST MEflORY ACCESSABILITY 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

ACCESSIBILITY TEST 

This test Mill check the access bility of each address of nemopy 
on the KDJll-0 Board. IF a memorv address traps out then an error 
H'll be flagged. A s'de effect or this test should be that all ncnory 
is cleared 

B6NTST 

Set tmeout trap to TIHOUT 

Set timeout priority to 7 

For MSB Addres;, :« 200000 to 1777777 00 

Contents of address := 0 
Go to the next test 

TIMOUT: 

Error Address should not have timed out 
ENOTST 



tST4: SCOPE 

BIT #BIT12.aSUR ; IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 



BEQ 
TYPE 
BR 

::30017$: 

i6oi6*. 

1000$: 

MOV 
MOV 
MOV 
JSR 
MOV 
MOV 



1C00$ 
.30017$ 
30016$ 



THEN TYPE TEST TRACE 
:TYPE ASCIZ STRING 
GET OVER THE ASCIZ 



.ASCIZ <15><12>/tEST 4 - MEMORY ACCESSIBILITY TEST/ 



1$; 



BICB 
CMP 
BLO 
ADD 
MOV 
CMP 
BNE 
MOV 
BR 



10$: 
20$: 

i TIMEOUT ROUTINE 



a*4,SAVTIM 

*100$.8*4 

«40.d*6 

PC.SETMHU 

M60OO.RI 

«1600,9«KIPAR2 

«77,CR1)» 

Rl.*iOOOO 

1$ 

«00.8*KIPAR2 
*40060.R1 
WKIPAft2.«0000 
1$ 

SAVTIM,a*4 
TST5 



SAVE TIMEOUT 

SET UP THE TIMEOUT TRAP 

GO SET UP THE MMU REGISTERS 
UE WANT TO MAP THRU PAGE 2 
SET UP KPAR 2 
FOR 160000 TO 2000000 
CLEAR OUT A BYTE 

IF UE HAVE PASSED THE PAGE BOUNDARY 
THEN 

POINT KPAR2 TO A NEW PAGE 
SET THE VIRTUAL ADDRESS TO PAGE 2 
ENOIF 



;:G0 TO tHE'NEXT TEST 



100$: 



000004 



DEC 

ERROR 

CMP 

CLR 

MOV 



Rl 
♦46 

(SP)*,(SP)< 
3#SR0 

SAVTIM.a*4 



REPORT ERROR 
CLEAN STACK 

RESTORE TIMEOUT 
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TEST - MEMORY ACCESSA8ILITY 

^g04 006154 000400 BR TST5 GO TO THE NEXT TEST 
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TEST - MEMORY ERROR REGISTER 



SEQ 005« 



2007 



181? 

2012 
2013 

ISit 

2016 

2or 

2019 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 

2027 
2028 
2C29 



006156 000004 

006160 032777 010000 

006166 001427 

006170 104401 006176 

006174 000424 



006246 

2030 0C6246 

2031 0C6246 

2032 006252 

2033 006260 

2034 006266 

2035 006270 

2036 006274 

2037 006276 
2038 

:039 006302 

2040 006310 

2041 006316 

2042 006324 

2043 006330 

2044 006334 

2045 006342 

2046 006350 

2047 006354 
2043 

2049 
2050 

2051 006360 

2052 006366 

2053 006372 
20:)4 006374 
2055 006376 
2056 

2057 
2058 

2059 006400 



005037 
012^37 
122737 
001005 
005737 
001402 
000137 

013737 
012737 
012737 
013746 
013746 
012737 
012737 
005037 
013700 



052737 
013701 
020001 
0C1401 
104055 



004052 
000340 
000001 

001206 

006776 

000004 
006736 
000340 
000114 
000116 
006770 
000340 
172100 
172100 



030032 
172100 



172752 



177776 
001220 



003012 
000004 
000006 



000114 
000116 



172100 



.SBTTL TEST - MEMORY ERROR REGISTER 

MEMORY ERROR REGISTER 

This test will check the MEMORY ERROR REGISTER on the KDJll-0 
Board. 

BGNTST 

Setup timeout VECTOR PC to TIMOUT 
Setup timeout VECTOR Priority to 7 
Setup Parity abort VECTOR to PARINT 
Setup Parity abort VECTOR Priority to 7 
Do a bus reset 

Read the Memory Error Register (17772100) 
Make sure that the register b"ts are n the r'oht state 
Check all R/U bits 
ENDTST 



t§T5: SCOPE 

*BIT12.3SUR : IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 
1000* ; THEN TYPE TEST TRACE 

.30019$ iiTYPE ASCIZ STRING 

30018$ ;iGET OVER THE ASCIZ 

•ASCIZ <15><12>/TEST 5 - MEMORY ERROR REGISTER TEST/ 



BIT 
BEQ 
TYPE 
BR 
30019$: 
30018$ 



1000$: 



1001$: 



cir parabt 

mov «40.8*177776 

CMPB *APiENV.$ENV 

BNE 1001$ 

TST $PASS 

BEQ 1001$ 

JMP PARENO 

MOV a«4,SAVTIM 

MOV *100$.a«4 

MOV «40,S*6 

MOV 3*114, -(SP) 

MOV S#116.-(SP) 

MOV *PARlNT,a#114 

MOV #340.a*116 

CLR 9«MEA 

MOV 8#MER,R0 



in it parity abort mc 

set the psH to 7 mc 

ARE WE IN APT MODE? 
IF NOT: DO THIS TEST 
FIRST PASS? 

YES THEN PROCEED 

NO THEN GO TO THE NEXT TEST 

SAVE UNEXPECTED TIMEOUT TRAP 
SET UP THE TIMEOUT TRAP 

SAVE VECTOR 
SAVE PRIORITY 



READ THE MER 



CHECK OUT THE MER 'ALWAYS READ AS 0" BITS 

BIS *30032.MER ; TRf TO WRITE THE STUCK AT 0 BITS 

MOV MER.Rl ; READ THE MER 

CMP RO.ftl : IF THE STUCK AT 0 BITS CHANGED 

BEQ 10$ ; : THEN 

ERROR *55 ; : ERROR IN THE MER 

ENDIF 

CHECK THAT BITS 0.2.14.15 ARE CLEARED ON RESET 



052737 140005 172100 10$: BIS *140005.MER 



SET ALL THE R/W BITS ON THE BOARD 
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^EST MEMORY ERROR REGISTER 

MOV MER.RO 

BIC #37)72, RO 

CMP RO, #140005 

BEQ 15i 

CLR MER 

MOV RO.$BDDAT 

MOV #140005. $GDDAT 

ERROR ♦56 
15$: RESET 

BIT #140005, MER 

BEQ 20$ 

ERROR ^57 



SEQ 0055 



2060 006406 


013700 


172100 




2061 006412 


042700 


037772 




2062 006416 


020027 


140005 




2063 006422 


001410 






2064 006424 

2065 006430 


005037 


172100 




010037 


001126 




2066 006434 


012737 


140005 


001124 


2067 006442 


104056 






2068 006444 


000005 






2069 006446 


032737 


140005 


172100 


2070 006454 


001401 






2071 006456 


104057 






2072 








2073 








2074 








2075 006460 








2076 006460 


004737 


027060 




2077 006464 


012737 


017600 


172344 


2078 006472 


012701 


057776 




2079 006476 


042737 


000001 


172100 


2080 00650A 


052737 


000004 


172100 


2081 








2082 








2083 








2084 006512 


005011 






2085 006514 


042737 


000004 


172100 


2086 








2087 








2088 








2089 006522 


005711 






2090 006524 


005737 


003050 




2091 006530 


000240 






2092 








2093 








2094 








2095 








2096 








2097 








2098 








2099 








2100 006532 


005737 


004052 




2101 006536 


001405 






2102 006540 


005037 


004052 




2103 006544 


005037 


172100 




2104 006550 


104062 






2105 








2106 








2107 








2108 








2109 006552 


005037 


172100 




2110 006556 


052737 


000001 


172100 


2111 006564 


005711 






2112 








2113 








2114 006566 


005737 


003050 




2115 








2116 









READ THE MER 

MASK OUT ALL THE UNWANTED BITS 
IF THE R/U BITS DID NOT GET SET THEN 
ERROR IN THE MER 

GET RECIEVED DATA 
GET EXPECTED DATA 
REPORT ERROR 
DO HESET 

MAKE SURE THE APPROPIATE BITS GET CLEARED 
IF NOT THEN ERROR 



: CHECK OUT THE WRITE WRONG PARITY AND PARITY ERROR ENABLE BITS 
^0$: 



JSR PC.SETMMU 

MOV #17600,3#KIPAR2 

MOV #57776. Rl 

BIC #BIT0.3#MER 

BIS #BIT2,a#MER 

WRITE WRONG PARITY TO LOCATION 1777776 



CLR 
BIC 



(Rl) 

#BIT2.3#MER 



SET UP KPAR2 

POINT TO LAST VIRTUAL ADDRESS IN PAGE 2 
CLEAR PARITY ERROR ENABLE 
SET WRITE WRONG PARITY 



WRITE WR0^iG PARITY TO THAT LOCATION 
CLEAR WRITE WRONG PARITY 



MAKE SURE NO PARITY ABORT OCCURS WHEN PARITY ERRORS ARE DISABLED 

READ "HE ADDRESS BACK 



TST 
TST 
NOP 



CRl) 
MERTAG 



TST 
BEQ 
CLR 
CLR 
ERROR 



PARABT 
25$ 

PARABT 

9#MER 

♦62 



SHOOlD 
NOT GET 
A 

PARITY ABORT 



IF WE GOT A PARITY ABORT 
THEN 

CLEAR THE ABORT FLAG 
CLEAR MEMORY ERROR REGISTER ;MC 
. FLAG THE ERROR 
ENDIF 



MAKE SURE A PARITY ABORT OCCURS WHEN PARITY ERRORS ARE ENABLED 



^5$: 



CLR 
BIS 
TST 



TST 



8#MER 

#BITO,a#MER 
(Rl) 



MERTAG 



CLEAR OUT THE MER 

NOW ENABLE PARITY ABORTS 

THIS HAS TO BE ONE WORD INTRUCTION 

READ THE ADDRESS BACK 



SHOULD 
GET 



ID 
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TEST - MEMORY ERROR REGISTER 



2117 






2118 






^119 






2120 






21^1 






2122 












2124 OOob72 


Ail '>T7'7 

042737 


AA AAA1 

000001 


212b OOooOo 


022737 


AAAAAC 

000001 


•Si '5/ AAttA^ 

2126 006606 


AA 1 A A7 

001403 




0 1 O"? AA££ 1 A 

212/ 006610 


AACA77 

00b03 / 


AAJI ACO 

0040b2 


2128 006614 


104063 




2129 






21 jO 






2Ij1 






017 0 AA££ 1 

ciid OObblb 


AACA77 

00b03 / 


AA>1 ACO 

0040b2 


0177 f\f\ce^ 00 
2 100 UObo22 


AA 0777 


1 AAAAA 

100000 


0 1 7^ AA<L<L7A 

clo** OObboO 


A1 77AA 

013/00 


1 7 0 1 AA 

1 /2100 


017c: AAt£.7>l 

213 J UUbbo't 


AA 07ftA 

'J42 /OO 


1 7Aft77 

1/003 / 


21jb 0Ubb40 


A0AA07 

02002 / 

Aft 1 A At 

00l40b 


AA77A A 
00 / /40 


0177 AA£.£.il/l 

213' 00bb44 




01 7B AA££>I£. 

2130 uuob'tb 


ftl AA77 
01003 / 


AA 1 1 0£ 

00112b 


Ci37 uuobjc 


A1 0777 
012 lit 


AA77AA 
UU / f 4U 




1 AAAAA 




01 A 1 AA&&&0 


AC0777 
0b2 / 3 / 


AAAAAA 
04U000 


01/10 Aft 1ft 


A1 77ft0 

013/02 


1701 AA 
1/2100 


01>17 ftAi.£7A 

2143 UUbb '4 


AA 07A0 

042 /02 


1 77A77 
1 / /03 / 


01 A A ftfttTAft 

2144 OUb/UU 


AOftOOT 

02022 / 


AAAAA A 

000040 


014C A/»C"7/\« 

214b 00bf04 


AA 1 A AC 

00140b 




01 At AAt7At 

214b 00b f Ob 


A1 A077 
01023 / 


AA1 1 Ot 

00112b 


0 1 A 7 AAt0 1 0 

214/ 006/12 


ftl 0777 

012/3/ 


AAAAAA 
000040 


01 AS ftftt70ft 

2140 UUbf2U 


1 ftAfttC 

iU40bb 




01 AO ftfttTOO 

2147 UUb /22 


AACA1 1 

ooboii 




OlPft ftAt70A 

21 jO UOb/24 


AACA77 

00b03 / 


1 77C70 

11 1 Die 


01 CI rtAt77ft 

21j1 00b /3U 


AACA77 

00b03 / 


17 01 A A 
1/2100 


01 CO ftft£.77A 

21 j2 00b f 34 


AAAAAC 

00040b 




01 C7 

21b3 






01 CA 

21j4 






01 cc 
21jj 






0 1 cc 
21jb 






01C7 Aft£77<L 

21 J / 00b /3b 


1 AAfttft 

104UbO 




01 CQ Aftt7Aft 

21jO 00b /40 


ftOOt oc 
022b2b 




01 CO ftftt7A0 

2137 00b /42 


AACftI 1 

ooboii 




01 CA AAC7AA 

21b0 00b /44 


AACA77 

00b03 r 


1 77C70 


01 £ 1 

21bl 






01CO AA£7CA 

21b2 00b /bO 






01^7 ftAt7CA 

2ib3 uob/bo 


A1 0C77 

012b3/ 


AAA1 1 C 

00011b 


2164 006754 


A1 0t77 

012b3/ 


aAai 1 1 
000114 


CIV J \J\JV 1 Ov 


vi 0 10 1 




2166 006766 


000403 




2167 






2168 






2169 






2170 






2171 006770 






2172 006770 

2173 006774 


005237 


004052 


000002 
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SEQ 0056 



172100 
004052 



SIC 
CMP 
BEQ 
CLR 
ERROR 



«BITO.a#MER 
n.PARABT 
30 J 

PARABT 
♦63 



PARITY ABORT 
SOON !•! 



DISABLE PARITY ABORTS 
IF^UE^DIDN' T GET A PARITY ABORT 

CLEAR PARITY ABOR"^ 
ERROR DID NOT GET A PARITY ABORT 



CHECK OUT THE ADDRESS AND EXTENDED MER READ ENABLED 



172100 



001124 
172100 



001124 



iO$: CLR PARABT 

BIC *BITl5.a*MER 

MGV a#MER.ftO 

BIC *1700i7,R0 

CMP RO,*7746 

BEQ 35i 

MOV RO.$BDDAT 

MOV «7)40.$G0DAT 

ERROR ^64 

35$: BIS *BIT14.3*MER 

MOV a*MER.A2 

BIC n770j7,R2 

CMP R2,*40 

BEQ 40i 

MOV R2.$BDDAT 

MOV #40.*GDDAT 

ERROR >65 

40$: CLR (Rl) 

CLR 3#SR0 

CLR 9«MER 

BR 101$ 

TIMEOUT ROUTINE 



100$ : ERROR *60 



CMP (SP)*.(SP)* 

cr - 



101$: 



000004 



CLR 
CLR 



MOV 
MOV 
MOV 
BR 



[RD 
9«SR0 



(SPh,a#116 
(SP 5 +.3*114 
SAVTIM,a*4 
TST6 



PARITY ABORT ROUTINE 



PARINT: 



CLEAR THE ABORT FLAG 
CLEAR THE PARITY ERROR FLAG 
GET THE MEMORY ERROR REGISTER 
CLEAR THE UNNEEDED BITS 
IF NOT CORRECT BITS SET THEN 
ERROR IN ADDRESS 11-17 
GET RECIEVED DATA 
GET EXPECTED DhTA 

SET ENABLE READ EXTENDED 81^ 
READ THE MER AGAIN 
CLEAR THE UNNEEDED BITS 
IF NOT CORRECT BITS SET THEN 

ERROR IN ADDR 18-21 OR READ EXT BIT 
GET RECIEVED DATA 
GET EXPECTED DATA 
ENDIF 



DISABLE MMU 
ENDTST 



INC 
RTI 



PARABT 



; REPORT ERROR 
; CLEAN STACK 

\ DISABLE MMU 

;MC 

; RESTORE PRIORITY 
; RESTORE VESTOR 
iRESTORE UNEXPECTED TIMEOUT 
::G0 TO tHE NEXT TEST 



FLAG THAT UE CAME HERE 
RETURN 



F5 
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TEST - HEHORY ERROR REGISTER 

2174 006776 PAREND: 
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.76 
.77 
,78 
,79 
80 
81 
82 
83 
84 
85 
86 
7 
8 
9 
0 

91 

92 
93 
94 
95 
96 
97 



2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 

2222 
2221 
222A 



006776 000004 

007000 032777 010000 

007006 001433 

007010 104401 007016 

007014 000430 



007076 

2225 007076 

2226 007076 

2227 007102 

2228 OO^llO 



172132 



005037 177572 
013737 000004 
012737 007464 



003012 
000004 



SEQ 0058 



SBTTL TEST - DATA SHORTS AND STUCK AT BITS 

DATA SHORTS AND STUCK AT BITS TEST 

This test will check the DATA Rams for Data shorts and stuck at bits. 
Testing occurs as beloM: 

1. A memory location 's checked to be set to 0 

2. IF NOT 6 error 

3. The locat on is complemented 

4. IF contents NOT -1 error 

5. This is repeated for all addresses 

6. Steps 1-5 are done from location 1777777 to 0 

Note: The KDJU-DA board uses 256k X 1 chips. This allows us to 
use only 2 patterns per RAM. IF one bits is shorted to 
another we will detect this when we read for the initial state. 
If it has changed from the expected state then chances are that 
the bits are snorted together. 

A side effect of this test should be that memory is cleared. 

BGNTST 
ENABLE PARITY 

FOR MSB.Address := 0 to 1777776 DO BY 2 
Clear Address 
If Contents <> 0 THEN 

ERROR in memory 
Complement the Contents of Address 
IF contents <> -1 THEN 
ERROR in memory 
ENDFOR ' 
FOR MSB.Address := 1777776 DOWNTO 0 DO BY 2 
IF contents <> -1 THEN 

ERROR in memory 
Complement the Contents of Address 
IF contents <> 0 THEN 
ERROR in memory 

ENDFOR 
ENDTST 



tST6 



:i30021$; 
!6020$ : 
1000$: 



SCOPE 
BIT 
BEQ 
TYPE 
3R 



#BIT12,aSUR i IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 
1000$ i THEN TYPE TEST TRACE 

.30021$ ;;TYPE ASCIZ STRING 

30020$ ::GET OVER THE ASCIZ 

.ASCIZ <15><12>/TEST 6 - DATA SHORTS AND STUCK AT BITS TEST/ 



CLR 
MOV 
MOV 



S^r'SRO 

a*4.SAVTIM 
#100$,3#4 



STORE UNEXPECTED TIMEOUT 
SET UP THE TIMEOUT TRAP 



"J 
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#340.a#6 
PC.SETMMU 
#40000. Rl 
#1600.a#KIPAR2 
8*114. -CSP) 
a#116.-(SP) 
#50$.a#114 
*340,a#116 



TCST - DATA SHORTS AND 


STUCK AT BITS 






2229 007116 


012737 


000340 


000006 




MOV 


2230 007124 


004737 


027060 






JSR 


2231 007130 


012701 


040000 






MOV 


^^^^ AA^d^A 

2232 007134 


012737 


001600 


172344 




MOV 


2233 007142 


013746 


000114 






MOV 


2234 007146 


013746 


000116 






MOV 


2235 007152 


012737 


007452 


000114 




MOV 


^^^^ 

2236 007160 


012737 


000340 


000116 




MOV 


2237 007166 
2238 


052737 


000001 


172100 




BIS 


2239 007174 








10$: 




2240 007174 


011137 


001126 






MOV 


2241 007200 


001406 








6EQ 


2242 007202 


005037 


001124 






CLR 


2243 007206 


010137 


001122 






MOV 


2244 007212 


104061 








ERROR 


2245 007214 


000532 








BR 


2246 










2247 007216 


005111 






15$: 


COM 


2248 007220 


011137 


001126 






MOV 


2249 007224 


022127 


4 T TT TT 

177777 






CMP 


2250 007230 


AA 4 il 4 A 

001412 








BEQ 


2251 007232 


012737 


4 T TTTT 

111111 


AA4 4 Ail 

001124 




MOV 


2C52 007240 


A < A 4 7T 

010137 


AA 4 4 A A 

001122 






MOV 


2253 007<f44 


162737 


AAAAAA 

000002 


A A 4 4 A A 

001122 




SUB 


2254 007252 


4 A i1 Af 4 

104061 








ERROR 


2255 007254 


AAAC 4 A 

000512 








6R 


2256 










2257 0C7256 


A'^ A 4 ^ I 

02012/ 


Af AAAA 

060000 




20$: 


CMP 


2258 007262 


4 A7T A A 

103744 








BLO 


2259 007264 


A^ '^T7T 

062737 


A A AAAA 

00020C 


4 T A7 A A 

172344 




ADD 


2260 007272 


A 4 A^ A 4 

012701 


A A A A A A 

040000 






MOV 


2261 007276 


A A 7 T AT 

023727 


4 T A7 A A 

172344 


A A AA A A 

020000 




CMP 


A^ AAT7Ail 

2262 007304 


A A 4 Jl A 4 

001401 








BEQ 


^ AAT7A^ 

2263 007306 


AA AT7 A 

000732 








BR 


A^^il AAT74A 

2264 007310 








25$: 




un^MflV AA^7 4 A 

ncBBBY 007310 


A4 ATAP 

012705 


AAAAAA 

000200 






MOV 


^ AAT7 4 A 

2266 007314 


A 4 A T A il 

012704 


llllll 




26$: 


MOV 


A'^^T AATT'^A 

2267 007320 


AT "7 >l A1 

077401 






27$: 


SOB 


A'^^Q AATTA'^ 

2268 007322 


ATTC Ail 

077504 








SOB 


2269 007324 


A 4 AT A 4 

012701 


A/T AAAA 

060000 






MOV 


**T7A AAT77A 

2270 007330 


4 f AT7T 

162737 


AAAAAA 

000200 


4 T A7 A A 

172344 




SUB 


2271 007336 








30$: 




2272 007336 


A 4 4 4 T T 

014137 


A A 4 4 A ^ 

001126 






MOV 


2273 007342 


A A T T AT 


AA 4 4 A/' 

001126 


llllll 




CMP 


^"^lA AAT7CA 

2274 007350 


AA 1 i! AT 

001407 








BEQ 


2275 00^352 


A 4 AT 7 T 

012737 


4 T TTTT 


A A 4 4 A il 

001124 




MOV 


'^A"T£ AATT^A 

2276 007360 


A4 A4 7 T 

010137 


A A 4 4 A A 

001122 






MOV 


2277 007564 


4 A il A ^ 4 

104061 








ERROR 


ccIO UUiODD 










BR 


2279 












2230 007370 


005111 






35$: 


COM 


2281 007372 


011137 


001126 






MOV 


2282 007376 


001406 








BEQ 


2233 007400 


005037 


001124 






CLR 


2284 007404 


010137 


001122 






MOV 


2285 007410 


1^4061 








ERROR 



#6IT6.S*MER 



(R1).$BDDAT 
15$ 

$GDDAT 
P1,$BDADR 
♦6l 
101$ 

(Rl) 

(R1).$BDDAT 
(Rl)+. #177777 
20$ 

#-l,$GDDAT 

Rl.iBDADR 

#2,$B0ADR 

*6i 

101$ 

Rl, #60000 

10 i 

#200.a#KIPAR2 

#40060.R1 

a#KIPAR2. #20000 

25$ 

10$ 

#200.R5 
#1 77)77. R4 
R4.27$ 
R5.26$ 
#60000. Rl 
«200.9#I<IPAR2 

-(R1).$BDDAT 
$BDDAt, #177777 
35$ 

#177777. $GDDAT 

R1.$6DA6R 

♦6l 

101$ 

(Rl) 

(R1).$BDDAT 

40$ 

$GDDAT 

R1.$BDA0R 

♦6l 



1 



SEQ 0059 



GO SET UP THE MMU REGISTERS 
UE UANT TO MAP THRU PAGE 2 
SET UP KPAR 2 
SAVE VECTOR ;MC 
SAVE PRIORITY jMC 
set up trap ;inc 
" " ' -mc 
ENABLE PARITY ABORTS imc 

FOR ADDRESS 160000 TO 2000000 DO 
READ MEMORY 

IF IT IS NOT ZERO THEN 
GET THE EXPECTED DATA 
GET THE VIRTUAL ADDRESS 
ERROR IN THE MEMORY 
RESTORE AND TO THE NEXT TEST 

COMPLEMENT MEMORY 
SAVE THE RECIEVED DATA 
IF ITS NOT = -1 THEN 
ERROR IN THE MEMORY 
GET EXPECTED DATA 
GET THE VIRTUAL ADDRESS 



RESTORE AND TO THE NEXT TEST 

IF WE HAVE PASSED THE PAGE BOUNDARY 
THEN 

POINT KPAR2 TO A NEU PAGE 
SET THE VIRTUAL ADDRESS TO PAGE 2 
ENDIF 
ENDFOR 



THIS lOOP is in HERE TO TEST THE DATA RETENTION OF 



GET A POINTER TO THE TOP OF A PAGE 
SET KIPAR TO POINT TO THE tqp PAGE 
FOR LAST ADDRESS TO FIRST BY 2 
SAVE THE DATA 

READ BACK MEMORY MAKE SURE IT IS -1 
IF NOT = -1 THEN 
GET THE EXPECTED DATA 
GET THE VIRTUAL ADDRESS 
ERROR IN MEMORY 
RESTORE AND TO THE NEXT TEST 

COMPLEMENT MEMORY 
IF NOT = 0 THEN 

ERROR IN MEMORY 

GET EXPECTED DATA 

GET THE VIRTUAL ADDRESS 
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BR 101$ ; 

40$: CMP Rl, #40000 
BHI 30 J 
SUB #200.3#KIPAR2 
MOV *60060.R1 
CMP a#KIPAft2.#1400 
BNE 30$ 
CLR MER 
BR 101$ 

: PARITY ABORT ROUTINE 



2286 007412 


000433 






J 10*7 








cioo 007414 


020127 


f\A AAAA 

040000 




ddnH 00/4i:0 


101346 








162737 


AA A'^ AA 

000200 


172344 


0 rim Am 


A 1 '^'7 A 1 

012701 


A£ AAAA 

060000 






Qciidi 


172344 


AA 4 A AA 

001400 


"y^QA r\S'>AAA 


r>r>i 7 7C 




005037 


1 "7 0 1 AA 

172100 




AAAil 4 A 




CC70 








CCT 1 








55Qa 








DDQO 










AACA77 

UU jUO / 


1701 rtrt 

1/<:100 






1040 /t: 






\JdcX)dO 




























c jUO \)\) 1 *rDc 








?'n7 








C OVJO 








57nQ 
















??1 1 








PtiP On7flAd 


UVJ JOU I 






c 010 UV./ iHOO 








571 A f>r7A7rt 
c OiH m IK) 


yjddodo 






?315 00747? 








2316 007476 


005037 


177572 




2317 








2318 007502 


012637 


000116 




2319 007506 


012637 


000114 




2320 007512 


013737 


003012 


000004 


2321 007520 


000400 






2122 








2323 









50$: 



CLR 

ERROR 

CMP 



MER 
+72 

(SP)+,(SP)+ 



[VECTOR SAVE AND RESTORE 
; UNEXPECTED PARITY ABORT ERROR ROUTINE 
BR 101$ 



TIMEOUT ROUTINE 



100$; 



101$; 



DEC 

ERROR 

CMP 

CLR 
CLR 

MOV 
MOV 
MOV 
BR 



Rl 
♦46 

CSP)+.(SP)* 

MER 

S^SRO 

(SP)*.Svll6 
(SP)*.S#114 
SAVTIM.a*4 
TST7 



SEQ 0060 

RESTORE AND TO THE NEXT TEST 

IF^VIRTUAL ADDRESS ABOUT TO ENTER NEXT PAGE 
THEN 

ADJUST THE PAR 

RESET THE VIRTUAL ADDRESS TO TOP OF PAGE 

. ENDIF 

ENOFOR 

CLEAR ■'HE MER 

RESTORE AND TO THE NEXT TEST 



INIT THE MER 
REPORT ERROR 
CLEAN STACK 



REPORT ERROR 
CLEAN STACK 



: RESTORE PRIORITY 
; RESTORE VECTOR 
i RESTORE UNEXPECTED TIMEOUT 
;;G0 TO THE NEXT TEST 



o 

COKDOAO KOJll-OA CLUSTER OIAG. MACRO V05.03 Tuesday 07-Jan-86 15:18 Page 20 
TEST QUlCt^ VERIFY DATA AND AORESSING TEST 



SEQ 0061 



2325 

i326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 

2352 

2353 

2354 

007522 

2355 007524 

2356 007532 

2357 007534 
007540 

007624 

2358 007624 

2359 007624 

2360 007630 

2361 007636 
236? 007644 

2363 007650 

2364 007654 

2365 007656 

2366 007660 

2367 007664 

2368 007670 

2369 007674 

2370 007700 

2371 007704 

2372 007710 

2373 007712 

2374 007714 

2375 007720 

2376 007724 
23^7 00"'726 



000004 
032777 
001434 
104401 
000431 



004737 
013737 
C13737 
004737 
012704 
005005 
005003 
004737 
012704 
012705 
012703 
004737 
012704 
005005 
005003 
004737 
004737 
005004 
005005 



010000 171406 
007542 



027060 

000004 003012 
010020 000004 
027174 
000001 



027360 
000001 
177777 
000001 
027360 
000002 



027360 
027532 



SBTTL TEST - QUICK VERIFY DATA AND AORESSING TEST 
UNIQvJE ADDRESSING TEST 

This test nill check the data and addressing of the memories. 
It uses the KNAIZUK HARTMANN QUI^K VERIFY TRAM TEST ALGORITHM. 
This algor thm will test memory for all stuck at faults in the 
data and addressing 



Memory s split up 
I.E. 6.1.2 - 3.4,5 



into sections of 3. 
6.7.10 ... 



Testing works as follows. 

1. Write a 0 into the 2nd and 3rd address of all groups 
write a -1 into the 1st address of all groups 

2. make sure that the 2nd address of all groups contain 0 

3. Write a -1 into the 2nd address of all groups 

4. Make sure that the 3rd address of all groups contain 0 

5. Make sure that the 1st and 2nd address of all groups 
contain -1 

6. Wrte a 0 into the 1st address of all groups 

7. Make sure that the 1st address of all groups contain 0 

8. Write a -1 into the 3rd address of all groups 

9. Hake sure that the 3rd address of all groups contain -1 



t§T7: 



::30023$: 
S6022$ : 
1000$: 



SCOPE 
BIT 
BEQ 
TYPE 
BR 



«BIT12,9SUR 
1000 J 
.30023$ 
t0022$ 



IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 

THEN TYPE TEST TRACE 
.•TYPE ASCIZ STRING 
GET OVER THE ASCIZ 



ASCIZ <15><12>/tEST 7 - QUICK VERIFY DATA AND ADDRESSING TEST/ 



JSR 
MOV 
MOV 
CALL 
MOV 
CLR 
CLR 
CALL 
MOV 
MOV 
MOV 
CAlL 
MOV 
CLR 
CLR 
CALL 
CALL 
CLR 
CLR 



PC.SETMMU 

8#4,SAVTIM 

100$. 8*4 

INIMEM 

#1.R4 

R5 

R3 

RWTMEM 
#1,R4 

#l.fi3 

RWtMEM 

«2.R4 

R5 

R3 

RWTMEM 
RRMEM 
R4 
R5 



SET UP THE MMU REGISTERS 
STORE UNEXPECTED TIMEOUT 
TIMEOUT 

INITIALIZE MEMORY 

SET ADDRESS INDEX TO 1 

SET EXPECTED PATTERN TO 0 

SET OPERATION TO READ 

60 READ AND CHECK MEMORY 

SET ADDRESS INDEX TO 1 

SET WRITE PATTERN TO -1 

SET OPERATION TO WRITE 

GO WRITE THE MEMORY 

SET ADDRESS INDEX TO 2 

SET EXPECTED PATTERN TO 0 

SET OPERATION TO READ 

GO READ AND CHECK MEMORY 

READ AND CHECK I AND 1*1 INDEXES 

SET ADDRESS INDEX TO 0 

SET PATTERN TO 0 
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2378 007730 


012703 


A A A A A A 

000001 


2379 007734 


004737 


027360 


'^^AA AA^*^^A 

2^80 007740 


005004 




2381 007742 


A A ^ A A P 

005005 




£'382 007744 


A A P A A 7 

005003 




2383 007746 


004737 


027360 


2384 007752 


012704 


A A A A A A 

000002 


2385 007756 


012705 


177777 


2386 007762 


012703 


A A A A A J 

000001 


2387 007766 


004737 


027360 


2388 007772 


012704 


A A A A A A 

000002 


2389 007776 


A * A^ AP 

012705 


177777 


^7nA A* AAA'S 

2390 010002 


A A P A A7 

005003 




A4 AAAJI 

2391 010004 


A A il ^ 

004737 


A ^ A 

027360 


"^^A^ A4AA4A 

2392 010010 


013737 


A A 7 A 4 A 

003012 


2393 010016 


AAA Jl 4 4 

000411 




2394 






2395 






2396 






C J7 / 






2398 






2399 010020 


005301 




2400 010022 


104046 




2401 010024 

2402 010026 


022626 




005037 


177572 


2403 010032 


013737 


003012 


2404 010040 


001400 




2405 







HOV 

CALL 

CLR 

CLR 

CLR 

CA.L 

MOV 

MOV 

MOV 

CALL 

MOV 

MOV 

CLR 

CALL 

MOV 

BR 



#1.R3 

RUTMEM 

R4 

R5 

R3 

RUTMEM 

#2.R4 

#-i.R5 

#1.R3 

RWtMEM 

#2.R4 

#-i.R5 

R3 

RWTMEM 

SAVTIM.S#4 

TSTIO 



TIMEOUT ROUTINE 



100$: 



DEC 

ERROR 

CMP 

CLR 

MOV 

BEQ 



Rl 
♦46 

(SP)*.(SP)* 
3»SR0 
SAVTIM,a*4 
TSTIO 



Page 20 1 



SEQ 0062 



SET OPERATION TO URITE 
GO URITE THE MEMORY 
SET ADDRESS INDEX TO 0 
SET EXPECTED PATTERN TO 0 
SET OPERATION TO READ 
GO READ AND CHECK MEMORY 
SET ADDRESS INDEX TO 2 
SET PATTERN TO 1 
SET OPERATION TO WRITE 
GO WRITE THE MEMORY 
SET ADDRESS INDEX TO 2 
SET EXPECTED PATTERN TO -1 
SET OPERATION TO READ 
GO READ AND CHECK MEMORY 
RESTORE UNEXPECTED TIMEOU" 
;G0 TO THE NEXT TEST 



REPORT ERROR 
CLEAN STACK 

. RESTORE UNEXPECTED TIMEOUT 
::G0 TO *HE NEXT TEST 
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SEQ 0063 



2407 
2408 
2409 
2410 
2411 

24l£ 

2413 

2414 

2415 

2416 

2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 

2441 

010042 

2442 010044 

2443 010052 

2444 010054 

2445 010060 

2446 010062 

2447 010066 

2448 010074 

2449 010076 

2450 0;0102 

2451 010110 

2452 010112 
010116 

010166 

2453 010166 

2454 010166 

2455 010172 

2456 010176 

2457 010202 

2458 010206 

2459 010214 



000004 
122737 
001005 
005737 
001402 
000137 
032777 
001402 
000137 
032777 
001426 
104401 
000423 



005C37 
005037 
013746 
013746 
012737 
012737 



.SBTTL TEST - CHECK PARITY DETECT LOGIC AND RAMS 

CHECK PARITY DETECT LOGIC 

This test will check out the parity detection logic on the KDJU-OA 
board. Ue will write wrong parity to all locations and then we will 
Expect the a parity trap on a read. 

B6NTST 

Set up Parity Vector (114) To PARINT 

Enable Urite Bad parity (Set bit 2 n MER (17772100)) 

Clear all of memory 

Read first location written to 

IF Parity Abort Occurs THEN 

Error There should be no Parity Aborts when disabled 
Enable Parity Error (Set Bit 0 in MER (17772100)) 
FOR First. Address to Last.address DO 
BEGIN 
READ Address 
NOP 

IF No Interrupt THEN 

Error Didn't Detect Bad parity 
ELSE ' 

Clear the interrupt flag 

Read the MER and make sure the obtained address is the correct one 

CNUr UK 

PARINT: 

Flag that an interrupt occured 

RTI 
ENDTST 



000001 

001206 

011036 
000200 

011036 
010000 

010120 



172100 
004052 
000114 
000116 
006770 
000340 



001220 

171044 

171030 



tSllO: SCOPE 
CMPB 



000114 
000116 



BNE 
TST 
BEQ 
JMP 

2000$: BIT 
BEQ 
JMP 

100$: BIT 
BEQ 
TYPE 
BR 
30025$: 

30024$: 

1000$: 

CLR 
CLR 
MOV 
MOV 
MOV 
MOV 



#APTENV.$ENV 
2000$ 
$PASS 
2000$ 
NXTST 

#BIT7,a3UR 

100$ 

NXTST 

»BIT12,3SUR 
1000$ 
.30025$ 
30024$ 



ARE 'AE IN APT MODE? 
IF NOT: DO THIS TEST 
FIRST PUSS?? 
•IF YFS. DO IT 
jELSE go TO THE NEXT TEST 
IF BIT) SET IN SUR THEN SKIP THIS TEST 



IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 

THEN TYPE TEST TRACE 
:TYPE ASCIZ STRING 
GET OVER THE ASCIZ 



ASCIZ <15><12>/tEST 10 - CHECK PARITY DETECT TEST/ 



S«MER 
PARABT 
8*114. (SD 
3*116. -(SP) 
*PARINT. 3*114 
*340.3*116 



INIT THE MEMORY ERROR REG. 

SAVE VECTORE 
SAVE PRIORITY 
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CLEAR ALL OF MEMORY WITH URITE URONG PARITY SET 



SEQ 0064 



2460 






«i461 






^462 






2463 010222 


004737 


027060 


2464 010226 


105037 


003010 


2465 010232 


012701 


040000 


2466 010236 


012737 


001600 


2467 010244 


012703 


000002 


2468 






2469 






2470 010250 






2471 






2472 010250 


012737 


000004 


2473 010256 


113721 


003010 


2474 010262 


005037 


172100 


2475 






2476 010266 


020127 


060000 


2477 010272 


103766 




2478 010274 


062737 


000200 


2479 010302 


012701 


040000 


2480 010306 


023727 


172344 


2481 010314 


001355 




2482 






2483 






2484 






2485 010316 






2486 010316 


012737 


001600 


2487 010324 


012701 


040000 


2488 010330 






2489 010330 


042737 


000004 


2490 010336 


052737 


000001 


2491 010344 


105711 




2492 010346 


005737 


003050 


2493 010352 


000240 




2494 






2495 






2496 






2497 






2498 






2499 






2500 






2501 






2502 010354 


023727 


004052 


2503 010362 


001406 




2504 010364 


005037 


004052 


2505 010370 


005037 


172100 


2506 010374 

2507 010376 


104063 




000457 




2508 






2509 






2510 






2511 010400 






2512 0.0400 


032737 


100001 


2513 010406 


001001 




2514 010410 


104073 




2515 






2516 010412 


042737 


100000 



172344 



172100 



172344 
020000 



172344 



172100 
172100 



1$; 



JSR PC.SETMMU 

CLRB PAftPAT 

MOV #40000. Rl 

MOV «1600.9«KIPAR2 

MOV «2.R3 



MOV #4.a*MER 

MOVB PAftPAT.CRD* 

CLR 9«MER 

CMP Rl.«60000 

BLO 1$ 

ADO «200.S4KIPAR2 

MOV #40060.R1 

CMP S«KIPAR2. #20000 

BNE 1$ 



GO SET UP THE MMU REGISTERS 
INITIALIZE FIRST PATTERN TO ZERO 
WE WANT TO MAP THRU PAGE 2 
SET UP KPAR 2 

LOOP FOR 000 PARITY AND EVEN PARITY 



6GN00 

ENABLE URITE URONG PARITY ;MC 
CLEAR OUT A BYTE 
DISABLE URITE URONG PARITY ;MC 
FOR 160000 TO 2000000 
IF^UE^HAVE PASSED THE "AGE BOUNDARY 

POINT KPAR2 TO A NEW PAGE 
. SET THE VIRTUAL ADDRESS TO PAGE 2 
. EMDIF 
ENDFOR 



; LET'S NOU MAKE SURE THAT THE ABORTS OCCUR 
^0$: 



22$: 



MOV 
MOV 

BIC 

BIS 

TSTB 

TST 

NOP 



n600.a«KIPAR2 
#40000. Rl 

#6IT2.a#MER 
#BIT0.8#MER 
(Rl) 
MERTAG 



000001 



CMP 

BEQ 

CLR 

CLR 

ERROR 

6R 



PARABT.#1 
25$ 

PARABT 
MER 
♦63 
40$ 



SET UP PAR 2 

SET VIRTUAL ADDRESS TO PAGE i 
BGNDO 

DISABLE URITE URONG PARITY 
ENABLE PARITY ERRORS 
READ THE BYTE 



PARITY 
ABORT 
TRAP 
SH01A.D 
HAPPEN 
SOON !!! 



IF A PARITY ABORT DIDN'T OCCUR 
THEN 

(EITHER 0 OR >1 ABORTS HAVE OCCUREO) 
CLEAR OUT THE MER 
ERROR DID NOT GET A PARITY ABORT 
ELSE 



172100 
172100 



: CHECK OUT THE ADDRESS AND EXTENDED MER READ ENABLED 
h$: 



30$: 



BIT #100001. 9#MER 

BNE 30$ 

ERROR >73 

BIC #6IT15.a#MER 



ARE BITS 0 AND 15 ARE SET ;HC 
YES THEY ARE jMC 
NO THEY'RE NOT SET ;MC 

CLEAR THE PARITY ERROR ^LAG 
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2517 010420 


010100 






2518 010422 


042700 


160000 




2519 010426 


072027 


177772 




2520 010432 


063700 


172344 




2521 010436 


010004 






2522 010440 


042704 


170037 




2523 010444 


013705 


172100 




2524 010450 


042705 


170037 




2525 010454 


020405 






2526 01045C 


001405 






2527 010460 


010437 


001124 




2528 010464 


010537 


001126 




2529 010470 


104064 






2530 010472 


052737 


040000 


172100 


2531 010500 


013705 


172100 




2532 010504 


042705 


177037 




2533 010510 


072027 


177771 




2534 010514 

2535 010520 


042700 


177037 




020005 






2536 010522 


001405 






2537 010524 


010537 


001126 




2538 010530 

2539 010534 


010037 


001124 




104065 






2540 010536 


005037 


172100 




2541 010542 


005037 


004052 




2542 010546 


005201 






2543 010550 


020127 


060000 




254* 010554 


103665 






254-) 010556 


062737 


000200 


172344 


2546 010564 
25*^7 010570 


012701 


040000 




023727 


172344 


020000 


2548 010576 


001254 






2549 010600 


112737 


000001 


003010 


2550 010606 


005303 






2551 010610 


001412 






2552 010612 


012701 


040000 




2553 010616 


012737 


001600 


172344 


2554 010624 


052737 


000004 


172100 


OF 2155 010632 


000137 


010250 




2556 010636 








2557 








2558 








25'^9 








2560 010636 


004737 


027060 




2561 010642 


012701 


040000 




2562 010646 


012737 


001600 


172344 


2563 010654 








2564 010654 


105021 






010656 


020127 


060000 




2566 010662 
256'' 010664 


103774 






062737 


000200 


172344 


25b8 010672 
2569 0106^6 


012701 


040000 




023727 


172344 


020000 


2570 010^04 

2571 010^06 


001401 






000762 






2572 








2^ri 









35$: 



40$: 



50$; 
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MOV Rl.RO 

BIC #1^0000. RO 

ASH #-6,R0 

ADD 8*KIPAR2,R0 

MOV R0.R4 

BIC «)0037.R4 

MOV a*«ER.R§ 

BIC #1700^7. R5 

CMP R4,R5 

BEQ 35i 

MOV R4,$G0DAT 

MOV R5,$BD0AT 

ERROR +64 

BIS #BIT14.3*MER 

MOV a*MER.ft5 

BIC #1770^7. R5 

ASH *-7.R0 

BIC #17/037. RO 

CMP R0,R5 

BEQ 40i 

MOV R5.$BpDAT 

MOV RO.$G00AT 

ERROR ♦6§ 

CLR WriER 

CLR PARABT 

INC Rl 

CMP Rl,*60000 

6L0 22i 

ADO #200.a#KIPAR2 

MOV #40060.R1 

CMP WKIPAA2.*20000 

BNE 22$ 

MOVB #1.PARPAT 

DEC R3 

BEQ 50$ 

MOV #40000,R1 

MOV «1600.S«KIPAR2 

BIS «IT2.MER 

JMP 1$ 



SEQ 0065 



GET THE VIRTUAL ADDRESS 
MASK OUT THE PAGE BITS 
SHIFT OUT BITS 0-5 
CREATE BITS 6 21 
SAVE A COPY FOR LATER 
CLEAR OUT UNNEEDEO BITS 
READ THE MER 
CLEAR THE i^NEEDEO BITS 
IF NOT CORRECT BITS SE"' THEN 
ERROR IN ADDRESS 11-17 
GET EXPECTED DATA 
GET RECIEVED DPTA 

SET ENA8LE READ EXTENDED BIT 
READ THE MER AGAIN 
CLEAR THE UNNEEDEO BITS 
GET BITS 18 21 IN RIGHT PLACE 
MASK OUT UNNEEDED BITS 
IF NOT CORRECT BITS SET THEN 

ERROR IN ADDR 18-21 OR READ EXT PIT 
GET RECIEVED DATA 
GET EXPECTED DATA 

ENOIF 
RESET MER 

CLEAR THE PARITY ABORT TRAP 
BUMP UP THE ADDRESS 
IF UE HAVE PASSED THE PAGE BOUNDARY 
THEN 

POINT KPAR2 TO A NEU PAGE 
SET THE VIRTUAL ADDRESS TO PAGE 2 
ENOIF 

OOUNTIL UE HAVE READ ALL ADDRESSES 
THIS TIME UE UANT AN ODD # OF I'S 
DECREMENT LOOP COUNT 

UE UANT TO MAP THRU PAGE 2 
SET UP KPAR 2 
ZmiE URITE URONG PARITY 
DOUNTIL UE DONE IT FOR EVEN AND ODD NUMBER 



CLEAR ALL OF MEMORY UITH URITE URUNG PARITY CLEAR 



60$: 



JSR PC.SETMMU 

MOV #40000. Rl 

MOV #1600.3#KIPAR2 

CLRB (Rl)« 

CMP Rl, #60000 

BLO 60i 

ADO #200.a#KIPAR2 

MOV #40000.R1 

CMP 8#KIPAft2. #20000 

BEQ 70$ 

BR 60$ 



GO SET UP THE MMU REGISTERS 
UE UANT TO MAP THRU PAGE 2 
SET UP KPAR 2 
FOR 160000 TO 2000000 
CLEAR OUT A BYTE 

IF UE HAVE PASSED THE PAGE BOUNDARY 
THEN 

POINT KPAR2 TO A NEU PAGE 
SET THE VIRTUAL ADDRESS TO PAGE 2 
ENOIF 
ENDFOR 



LET'S NOU MAKE SURE ^HAT THE ABORTS DON'T OlCUR 
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2574 

2575 

2376 

2577 

2578 

2579 

2580 

258] 

258fe 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

2594 

2595 

2596 

2597 

2598 

2599 

2600 

2601 

2602 

2603 

2604 

2605 

2606 

2607 

2608 

2609 



010710 
010710 
010716 
010722 
0107P2 
010730 
010732 



010740 
010744 
010746 
010752 
010756 
010760 
010762 
010766 
010770 
010776 
011002 
011010 
011012 
011014 
011020 
011024 
011030 
011034 
011036 



012737 001600 172344 
012701 040000 



05^737 COOOOl 172100 
177777 003050 



)0$: 
75$: 



105711 
?737 



01272 



005737 
00140b 
005037 
005037 
104063 
005201 
020127 
103755 
062737 
012701 
023727 
001401 
000/43 
005037 
005037 
012637 
01263"' 
000400 



004052 

004052 
172100 



060000 

000200 172344 
040000 

172344 020000 



177572 
172100 
000116 
000114 



80$: 



90$: 



NXTST: 



nov 

MOV 

BIS 

TSTB 

MOV 



TST 

BEQ 

CLR 

CLR 

ERROR 

INC 

CMP 

BLO 

ADD 

MOV 

CMP 

BEQ 

BR 

CLR 

CLR 

MOV 

MOV 

BR 



*1600.a#KIPAR2 
»40006.R1 

«6IT0.8*MER 
(Rl) 

#-l.MERTAG 



PARhBT 
80$ 

PARABT 
MER 
♦63 
Rl 

Rl,*60000 
75 i 

*200.8#KIPAR2 
#40060.R1 
9«KIPAI)2.«20000 
90$ 

75$ 

a#SRO 

3*MER 

(SP)*.S*116 
(SP)».a#114 
TSTll 



SEQ 0066 



SET UP PAR 2 

SET VIRTUAL ADDRESS TO PAGE *2 
%NDO 

: ENABLE PARITY ERRORS 
: READ THE BYTE 



PARITY 
ABORT 
TRAP 
SHOULD NOT 
HAPPEN !!! 



IF^A^PARITY ABORT HAS OCCUREO 

: INITIALIZE THE MER 
: ERROR A PARITY ABORT HAS OCCURED 
BUMP UP THE ADDRESS 
IF UE HAVE PASSED THE PAGE BOUNDARY 
THEN 

POINT KPAR2 TO A NEW PAGE 
SET THE VIRTUAL ADDRESS TO PAGE 2 
ENOIF 

DOUNTIL UE HAVE READ ALL ADDRESSES 
DISABLE THE MMU 



; RESTORE PRIORITY 
iRESTORE VECTOR 
;;G0 TO THE NEXT TEST 



^0 
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26 
26 
26 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 

2641 
2642 
2643 



011110 

2644 011110 

2645 011110 

2646 011116 

2647 011124 

2648 011132 

2649 011136 

2650 011140 

2651 011142 

2652 011146 

2653 011152 

2654 011160 

2655 011162 

2656 011164 

2657 011166 

2658 011170 

2659 011172 

2660 011174 

2661 011176 

2662 011200 

2663 011202 



013737 
012737 
012737 
005737 
005000 
005001 
012703 
012702 
032737 
001402 
005200 
000401 
005201 
077210 
005700 
001402 
005701 
001002 
077315 
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SBTTL TEST LTC BIT 7 
LTC BIT 7 TEST 

This test check for the ex i stance of the LTC peg i step and it 
makes supe that the clock is t' eking. 

BGNTST 

Set up timeout vectop PC to TIMOUT 
Set up timeout vectop PSU to 7 
Read the LTC CSR 
IF not fmed OUT THEN 
FOR a set amount of time 
Check bit7 
IF BIT7 is set THEN 

Incpement BIT7 set flag 
ELSE * 
INCREMENT BIT7 Cleap Flag 
ENOFOR ^ 
IF eithep flag has not been set at all THEN 
Eppop ClocP "s not ticking 
ENDTST 

TIMOUT: Clean stack 

Eppop LTC pegistcp timed out 



SEQ ooe 



011036 000004 

011040 032777 010000 

011046 001420 

011050 104401 011056 

011054 000415 



170072 



000004 
011216 
000340 
177546 



000001 
177777 
000200 



003012 
000004 
000006 



t§Tll: SCOPE 
BIT 
BEQ 
TYPE 
BR 
30027$: 
i6026$ 



;LTC BIT7 TEST 



1000$: 



177546 1$: 



5$: 
10$: 



20$: 



MOV 

MOV 

MOV 

TST 

CLR 

CLR 

MOV 

MOV 

BIT 

BEQ 

INC 

BR 

INC 

SOB 

TST 

BEQ 

TST 

BNE 

see 



«6IT12,3SUR 
1000$ 
.30027$ 
50026$ 
.ASCIZ <15> 



3#4.SAVTIM 

*io6$.a*4 

«340,a«6 

LKS 

RO 

Rl 

n.R3 

#1)7777. R2 

#6IT7,LKS 

5$ 

RO 

10$ 

Rl 

R2.1$ 

RO 

20$ 

Rl 

25$ 

R3.1$ 



: IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 
: THEN TYPE TEST TRACE 
;:TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 
<12>/tEST 11 - LTC BIT7 TEST/ 



SAVE UNEXPECTED TIMEOUT 
SET UP THE TIMEOUT TRAP 



READ THE LKS REGISTER 
CLEAR THE HIGH COUNTER 
CLEAR THE LOU COUNTER 

SET UP A COUNT 
FOR AN AMOUNT OF TIME 
CHECK BIT 7 OF THE LKS 
IF IT IS A "1" THEN 

BUMP UP RO 
ELSE 

BUMP UP Rl 
ENDFOR 

IF RO = 0 OR 
Rl = 0 THEN 
ERROR WITH BIT7 OF LTC 
TOLERATE ONE ERROR ONLY 



COKOOflO KOJli-OA CLUSTER DIAG. 
TpST - LTC BIT " 



2664 011204 
2665 

2666 011206 

2667 011214 
2668 

2669 
2670 
2671 
2672 

2673 011216 

2674 011216 

2675 011220 

2676 011222 
267-' 

2678 
26^9 



104053 

013737 
000405 



104054 
022626 
013737 
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ERROR *53 



003012 000004 25 j: 



MOV 
BR 



SAVTIM,a#4 
TST12 



TIMEOUT ROUTINE 
100$: 



003012 000004 



ERROR 

CMP 

MOV 



*54 

(SP)*.(SP)- 
SAVTIM.8*4 



SEQ 0068 



ENDTST 



^„ , : RESTORE UNEXPECTED TIMEOUT 
;;G0 TO IhE NEXT TEST 



REPORT ERROR 
CLEAN STACK 

RESTORE UNEXPECTED TIMEOUT 



COKODAO KDJll-DA CLUSTER DIAG. 

^EST - i^S INTERRLiPT PRIORITY 

2681 

2682 

2683 

2684 

2685 

2686 

2687 

2688 

2689 

269C 

2691 

2692 

2693 

2694 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2~0? 

2'05 

2704 

2705 

2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

011230 000004 

2728 011232 032777 010000 

2729 011240 001425 

2730 011242 104401 011250 
011246 000422 

011314 

2731 011314 

2732 011314 032737 000100 

2733 011322 001400 
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SBTTL TEST - LKS INTERRUPT PRIORITY 

CHECK THAT LKS INTERRUPTS HAPPEN AT PRIORITY 5 CLEARING LKS<07> 
AND DON'T HAPPEN AT PRIORITY 6. 
ROUTINE TEST 

IF UFD AND LKS IS DISABLED THEN 
EXIT TEST 

ENDIF 

SET PRIORITY TO 5 
CLEAR INTERRUPT FLAG 
LET LKS<06>=#1 TENABLE INTERRUPTS) 
SET COUNTER TO WAIT FOR 3 INTERRUPTS 
REPEAT 

DECREMENT COUNTER 
UNTIL INTERRUPT FLAG EQ « OR COUNTER EQ #0 
CLEAR LKS<06> 
IF LKS<07> EQ *1 THEN 

ERROR (WAS NOT CLEARED ON INTERRUPT) 

ENDIF 

IF COUNTER LT TIME REQUIRED FOR 3 INTERRUPTS FQR 800HZ 
ERROR (INTERRUPTS NEVER 60 LOU) ' " 

ENDIF 

IF INTERRUPT FLAG LT *3 THEN 

ERROR (INTERRUPTS DON T HAPPEN) 

ENDIF 

CLEAR INTERUPT FLAG 
WAIT FOR LKS<7>=1 
LET LKS<7>=0 
IF LKS<7> NF *0 THEN 

ERROR (LKS<7> NOT CLEARED 

ENDIF 

SET PRIORITY TO 6 

SET COUNTER TO 1 SLOW CLOCK INTERRUPT 
SET LKS<06> 
REPEAT 

DECREMENT COUNTER 
UNTIL COUNTER EQ #0 OR INTERRUPT FLAG NE *0 
IF INTERRUPT FLAG NE *0 THEN 

ERROR (INTERRUPT WAS AT WRONG PRIORITY) 

ENDIF 

RESTORE ORIGINAL PRIORITY 
ENOROUTINE 

ROUTINE LINE„CLOCK„INTERUPT 

INCRERENT IRTERRUPT.FLAG 
ENOROUTINE 



SEQ 006<^ 



167700 



t5T12: SCOPE 



000052 



30029$; 
i6028$: 
1000$; 



BIT 
BEQ 
TYPE 
BR 



«BIT12.aSWR 
1000$ 
.30029$ 
^0028$ 



IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 

THEN TYPE TEST TRACE 
;TYPE ASCIZ STRING 
GET OVER THE ASCIZ 



ASCIZ <15><12>>tEST 12 - LKS INTERRUPT PRIORITY/ 



BIT 
BEQ 



#81106. a#52 
1$ 



:UrD MODE? 

ilF NOT, GO 00 TEST 



COKOOAO KDJll-OA CLUSTER OIAG. 
TEST L^S INTERRUPT PRIORITY 
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SEQ 0070 



2734 

2735 

2^36 

2737 

2738 

2739 

2740 

2741 

2742 

2743 

2744 

2745 

2^46 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 



011324 
011332 
011336 
011344 
011350 
011356 
011364 
011366 
011370 
011374 
011402 
011404 



011406 
011412 
011420 
011426 
011430 
011432 
011432 
011440 
011442 
011450 



011452 
011456 
011462 
011466 
011474 
011500 
011502 
011504 
011510 
011512 
011520 
011522 
011526 



042737 
005037 
012737 
012701 
052737 
032737 
001001 
104042 
106427 
022737 
001401 
077105 



106427 
042737 
032737 
001401 
104042 

022737 
001404 
012''37 
104007 



005037 
106427 
012701 
052737 
005737 
001001 
077104 
005737 
001404 
012737 
104010 
106427 
042737 



000100 
002340 
025722 
077777 
000100 
000100 



000240 
000003 



000340 
000100 
000100 



000003 
000003 



002340 
000300 
077777 
000100 
002340 



002340 

000005 

000340 
000100 



177546 
177546 



002340 
001124 



WAIT FOR 3 INTERRUPTS AND CHECK LKS<7> TO BE 0 AFTER INTERRUPT 



177546 

001124 

177546 



1$: 



177546 

000100 

177546 
177546 



2$; 

002340 3$: 



BIC 

CLR 

HOV 

MOV 

BIS 

BIT 

BNE 

ERROR 

MTPS 

CMP 

6EQ 

SOB 



*BIT06.LKS 
LKSFL 

#LKSINT.100 

*77777.fil 

#eiT06.LKS 

#6IT06.LKS 

2$ 

♦42 

*?40 

#3. LKSFL 
4$ 

R1.3$ 



FROM END OF TEST 42?' PROBLEM 
CLEAR INTERRUPT FLAG 
POINT VECTOR TO ROUTINE 
COUNTER FOR SLOU CLOCK 
SET INTERRUPT ENABLE BIT 
BIT SET OK? 
IF YES, BRANCH 
ERROR WRITING 1 TO LKS<6> 
SET PRIORITY TO 5 
3 INTERRUPTS HAPPENED? 
IF YES, BRANCH 
STAY IN A LOOP 



DISABLE INTERRUPTS AND CHECK THAT PRO-ER CONDITIONS ARE HET 



4$: 
6$: 



7$: 
8$: 



MTPS 

BIC 

BIT 

BEQ 

ERROR 

CMP 
BEQ 
MOV 
ERROR 



«40 

*6IT06.LKS 

*6IT06.LKS 

7$ 

♦42 

«, LKSFL 
9$ 

«3.$GDDAT 
♦7 



CHECK WHETHER INTERRUPTS HAPPEN AT PRIORITY 6 



4$: 

10$! 

11$: 
12$: 



CLR 

MTPS 

MOV 

BIS 

TST 

BNE 

SOB 

TST 

BEQ 

MOV 

ERROR 

MTPS 

BIC 



LKSFL 
#300 

#77777, Rl 
#BIT06.LKS 
LKSFL 
11* 

R1.10$ 

lkSfl 

12$ 

#5.JGDDAT 
♦ l6 
#340 

#6IT6,LKS 



RAISE PRIORrv 

DISABLE INTERRUPTS 

LKS<6>=0? 

IF YES, BRANCH 

ERROR WRITING 0 TO LKS<6> 

DID 3 INTERRUPTS HAPPEN? 
IF YES. BRANCH 
3 INTERRUPTS EXPECTED 
INTERRUPTS DON'T HAPPEN 



CLEAR INTERRUPT FLAG 
RAISE PRIORITY TO 6 
COUNTER FOR SLOW CLOCK 
SET INTERRUPT ENABLE BIT 
ANY INTERRUPTS? 
IF YES, EXIT LOOP 
CONTINUE WITH COUNT 
ANY INTERRUPTS? 
IF NO. BRANCH 

STORE PRIORITY FOR TYPE OUT 
INTERUPTS HAPPEN AT WRONG PRIORITY 
RESTORE PRIORITY 
DISABLE CLOCK INTERRUPTS 



COKDDAO KO-ll-DA CLUSTEP DIAG. 

TEST - RESETTING LKS 

2780 

2781 

2782 

2783 

2784 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 

2801 

2802 

2803 

011534 000004 

2804 011536 032777 010000 

2805 011544 001423 

2806 011546 104401 011554 
011552 000420 

011614 

2807 011614 

2808 011614 005737 001206 

2809 011620 001040 

2810 011622 032737 000100 

2811 011630 001400 
5812 

2813 
2814 

2815 011632 012737 025722 

2815 011640 012737 000340 

2817 011646 052737 000100 

2818 011654 005037 002340 

2819 011660 012702 077777 

2820 011664 106427 000240 

2821 011670 022737 000003 

2822 011676 001401 

2823 011700 077205 

2824 011702 106427 000340 

2825 011706 000005 

2826 011710 032737 000100 

2827 011716 001401 

2828 011720 1040r 
2829 

2830 
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SBTTL TEST - RESETTING LKS 
RESETTING LKSCO 

THIS TEST WILL PROVE THAT RESET INSTRUCTION CLEARS LKS<06>. 
ROUTINE TEST 

IF UFD AND LKS IS DISABLED THEN 
EXIT TEST 

ENDIF 

POINT LKS VECTOR 100 TO ERROR LKS ILLEGAL INTERRUPT 
SYNCHRONIZE LKS BY WAITING FOR 3 PULSES " 
LET LKS<06>=#1 
EXECUTE "RESET' 
IF LKS<6> NE #0 THEN 
ERROR 

ENDIF 

IF ILLEGAL_LINE.CLOCK INTERRUPT NE 0 THEN 
ERROR 

ENDIF 
ENDROUTINE 

ROUTINE ERROR LKS ILLEGAL INTERRUPT 

FLAG ICLEGAL.LINE.CLOCK INTERRUPT 

RETURN 



SEQ 0^1] 



167374 



t5T13: SCOPE 



000052 



BIT 
BEQ 
TYPE 
BR 
30031$: 
30030$: 
1000$: 

TST 
BNE 
BIT 
BEQ 



#6IT12.3SUR ; IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 
1000$ : THEN TYPE TEST TRACE 

.30031$ ;;TYPE ASCIZ STRING 

30030$ ;:GET OVER THE ASCIZ 

.ASCIZ <15><12>/TEST 13 - RESETTING LKS TEST/ 



$PASS :FIRST PASS? 

TST14 ^ IF NOT FIRST pAsS. EXIT TEST 

#6iT06,a*52 ;Uf6 mode? 

1$ : IF NOT, BRANCH 



000100 
000102 
177546 



SYNCHRONISE WITH LINE TIME CLOCK BY WAITING FOR 3 INTERRUPTS 



i$: MOV #LKSINT,3#100 

MOV #340,3*102 

BIS #61106. LKS 

CLR LKSFL 

MOV #77777. R2 

MIPS #240 

002340 2$: CMP #3. LKSFL 

BbQ 3$ 

SOB R2,2$ 

3$ : MTPS #34o 
RESET 

4$: BIT #BIT06.L<S 

BEQ TST14 

ERROR +11 



177546 



;SET UP INTERRUPT VECTOR 

;AT PROIRITY 7 

;SET INTERRUPT ENABLE BIT 

; CLEAR INTERRUPTS FLAG 

; COUNTER TO WAIT FOR INTERRUPTS 

; LOWER PRIORITY TO 5 

:3 INTERRUPTS HAPPENED? 

jEXIT LOOP, IF SO 

jOTfERWISE. KEEP WAITING 

;RAISE PRI6rITY TO 7 

; EXECUTE RESET 

:IN7ERRUPT ENABLE BIT CLEARED? 
;;IF SO. EXIT TE^T 

; RESET DOESN'T CLEAR LKS 



-"0 
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SEQ 0072 



2832 
2e33 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 

011722 

2847 011724 

2848 011732 

2849 011734 
011740 



000004 
032777 
001426 
104401 
000423 



010000 
011742 



167206 



.SBTTL TEST - MAINTENANCE REGISTER TEST 
MAINTENANCE REGISTER TEST 

THIS TEST WILL ADDRESS MAINTENANCE REGISTER AND CHECK BITS 
7-4 TO BE 0010, 2-1 TO BE 10. AND READ BITS 10-08, 03^ 00 
FOR FUTURE USE. THOSE BITS REPRESENT THE FOLLOWING sIgNALS: 
MULTIPROCESSOR SLAVE, UNIBUS SYSTEM. FPA AVAILABLE. HALT/TRAP 
OPTION, AND AC POWER OKAY. 
ROUTINE TEST 

IF MAINT. REG. BITS <7 4> NE 0010 OR <2-l> NE 10 THEN 
ERROR 

ENDIF 

READ MAINT. REG. BITS <10-08,03.00> 
ENOROUTINE 

t§T14: SCOPE 



2850 
2351 
2852 
2853 
2854 
2855 
2856 
2857 
552858 
2859 
2860 
2861 
2862 
2863 



012010 
012010 
012010 

01201b 
012020 
012022 
012030 
012032 
012040 

012046 
012050 
012052 



032737 177000 17/750 



:i30033$; 
i6032$: 
1000$: 



BIT 
BEQ 
TYPE 
BR 



#6IT12.SSWR 
1000$ 
.30033$ 
30032$ 



?Sn'?yJ^ m^'^i^i""^ '''''' "E^"^^" 

;TYPE ASCIZ STRING 
GET OVER THE ASCIZ 



ASCIZ <15><12>>tEST 14 - MAINTENANCE REGISTER TEST/ 



001401 
104043 
032737 
001010 
042737 
022737 

001401 
104043 



000010 177750 1$; 



000010 
000105 



177750 
177750 



2$: 



BIT 

BEQ 

ERROR 

BIT 

BNE 

SIC 

CMP 

BEQ 
ERROR 



*1 77000. MAIREG 

U 
t43 

«BIT3,MAIREG 
2$ 

#BIT3.MAIREG 
#105.MAIREG 

2$ 
♦43 



UNUSED BITS ALL ZEROS? :MC001 
CHANGED FROM 174000 FOR tHE DA 
IF OK. BRANCH 

MAINTENANCE REGISTER ERROR 
IF JUMPER IS IN 
THEN 

SET HALT TO ODT 

MAINTENANCE REGISTER SHOULD BE SET UP TO 1 
CHANGED FROM <5.2> FOR THE DA 
IF SO. BRANCH 

MAINTENANCE REGISTER ERROR 



4 



_ n 
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TEST - SERIAL LINE UNIT REGISTERS 



SEQ 0073 



2865 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2873 

2874 

2875 

2876 

2877 

2878 

2879 

2880 

2881 

2882 

2883 

2884 

2885 

2886 

2887 

2888 

2889 

28'?0 

2891 

2892 

2893 

012052 

2894 012054 

2895 012062 

2896 012064 
012070 

012140 

2897 012140 

2898 012140 

2899 012146 

2900 012150 
2901 

2902 
2903 

2904 012154 

2905 012160 

2906 012166 

2907 012174 

2908 012200 

2909 012204 

2910 012210 

2911 012212 

2912 012214 

2913 012220 

2914 012222 

2915 012224 

2916 012226 

2917 012232 



000004 
032777 
001426 
104401 
000423 



032737 
00140i: 
000137 



013701 
012737 
012737 
012702 
012703 
012704 
005712 
000403 
010237 
104012 
020322 
103771 
012702 
012703 



010000 
012072 

00010 1 
015262 



000004 
012214 
000340 
177560 
177566 
000002 



001126 



176500 
176506 



167056 



000052 



000004 
000006 



SBTTL TEST - SERIAL LINE UNIT REGISTERS 
SERIAL LINE UNIT TESTC*) 

BCR<2-0> WILL BE READ TO FIND OUT BAUD RATE. SLU WILL BE PROG- 
RAMMED TO CHECK THE INTERRUPT LEVELS BY SETTING BIT<06> IN 
RCSR AND XMIT. LOOP BACK CAPABILITIES WILL BE TESTED BY SETTING 
TO^l XCSR<02>. THE LINE CLOCK INTERRUPT SUBROUTINE UILL BE 
USED TO RETURN TO THE EXECUTION OF THE DIAGNOSTICS. IF THE 
PROGRAM HANGS IN THE LOOP BACK MODE, 
ROUTINE TEST 

IF UFD AND CONSOLE NOT PRESENT 
GO TO TEST 22 

ENOIF 

IF BCR<07> EQ #0 THEN 

READ BCR<2-0> TO GET BAUD RATE 

ENDIF 

LET 4=ADDRESS OF TIMEOUT ROUTINE 
DO FOR RCSR.XCSRTRBUF.XBUF 

READ XRCSR.XCSR.RBUF.XBUF 
IF TIMEOUT FLAG NE #6 THEN 
ERROR 

ENDIF 

ENDDO 
ENDROUTINE 

ROUTINE TIMEOUT 

LET TIMEOUT FLAG=#1 
ENDROUTINE 

TST15: SCOPE 



::30035$: 
J6034$: 
1000$: 



BIT 
6EQ 
TYPE 
BR 



«BIT12.9SUR 
1000$ 
.30035$ 
30034$ 



IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 

THEN TYPE TEST TRACE 
jTYPE ASCIZ STRING 
GET OVER THE ASCIZ 



ASCIZ <15><12>/tEST 15 - SLU REGISTER ACCESS TEST/ 



BIT 
BEQ 
JMP 



«6IT06.9«52 
1$ 

SLEND 



; TRY TO ACCESS SLU REGISTERS 

i$: MOV ERRVEC.Rl 

MOV #3$.ERftVEC 

MOV *346.ERRVEC*2 

MOV *RCSft.R2 

MOV #XBUF.R3 

MOV #2.R4 

2$: TST (R^) 

BP 4$ 

3$: MOV R2.$BDDAT 

ERROR +12 

4$: CMP R3.(R2)+ 

BLO 2$ 

MOV #RCSR1,R2 

MOV #XBUF1,R3 



UFD MODE? 

IF NOT. GO DO THE TEST 

IF TRUE. SKIP ALL SLU TESTS 



SAVE TIMEOUT VECTOR 

POINT NEW ONE TO PROGRAM AREA 

AT PRIORITY 7 

START ACCESSING WITH RCSR 



ACCESS SLU REGISTER 

IF NO TIMEOUT. CONTINUE 

STORE ADDRESS THAT TIMED OUT 

TIMEOUT ACCESSING SLU REGISTER 

LAST REGISTER ACCESSED? 

IF NOT. BRANCH 

GET POINTERS TO SLU 1 

GET LAST ADDRESS ON SLU 1 



wO 
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2918 0'2236 077414 SOB R4.2$ 

2919 012240 010137 000004 MOV Rl.ERRVEC IrESTORE TIMEOUT VECTOR 



COKDOAO KDJll-DA CLUSTER OIAG. 

TEST - XCSR BIT 7 

2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
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SBTTL TEST - XCSR BIT 7 

CHECK THAT XCSR<07> CAN BE 0 AND 1. 



SEQ 0075 



XCSR <07> 



TRANSMITTER READY 



ROUTINE TEST 

WAIT FOR XCSR<07>=#1 NO MORE THAN 200MSEC 
IF XCSR<07> NE #1 THEN 
ERROR 

ENDIF 

LET XBUF=#NULL 

UAIT FOR XCSR<07>=#1 

LET XBUF=#NULL 

IF XCSR<07> NE 0 THEN 

ERROR (READY DIDN'T GO LOW) 

ENDIF 
ENDROUTINE 



012244 

2941 012246 

2942 012254 

2943 012256 

2944 012262 

2945 012264 

2946 012270 

2947 012272 

2948 012272 

2949 012300 

2950 012302 
012306 

012344 

2951 012344 

2952 012350 

2953 012352 

2954 012352 

2955 012356 

2956 012362 

2957 012366 

2958 012372 

2959 012374 

2960 012376 

2961 012400 

2962 012402 

2963 012404 

2964 012406 

2965 012412 

2966 012414 

2967 012416 

2968 012420 

2969 012424 

2970 012430 

2971 012434 
2972 



000004 
122737 
001006 
005737 
001403 
012704 
000453 

032777 
001424 
104401 
000416 



012701 
077101 

012701 
012702 
012703 
012704 
105712 
100401 
077103 
105712 
100401 
104013 
012713 
105712 
100001 
104013 
012702 
012703 
012701 
077422 



000001 
001206 
000002 

010000 
012310 

100000 



001000 
177564 
177566 
000002 



001220 



t§Tl6: SCOPE 
CMPB 
6NE 
TST 
6EQ 
MOV 
BR 



166640 



1002$: 



30037$; 
i6036$ : 



BIT 
6EQ 
TYPE 
BR 



*APTENV.$ENV 
1002$ 
$PASS 
1002$ 
#2.R4 
4$ 

«6IT12.9SUR 
1000$ 
.30037$ 

30036$ ijoti uv 

.ASCIZ <15><12>/tEST 16 



ARE WE IN APT MODE? 
IF NOT: DO THIS TEST 
FIRST PASS?? 
IF YES. 00 IT 

LOOP Count of i 

GO SET UP pointers TO SLU 1 



;TYPE ASCIZ STRING 
GET OVER THE ASCIZ 

XCSR BIT 7 TEST/ 



000000 



176504 
176506 
001000 





MOV 


1001$: 


SOB 


1000$: 






MOV 




MOV 




MOV 




MOV 


1$: 


TSTB 




BMI 




SOB 


2$: 


TSTB 




BMI 




ERROR 


3$: 


MOV 




TSTB 




BPL 




ERROR 


4$: 


MOV 




MOV 




MOV 




SOB 



*100000,R1 
Rl.lOOlJ 

#1000. Rl 
#XCSR.R2 
#XBUF,R3 
*2.R4 

(R^) 
2$ 

Rl.l$ 
(R5) 
3$ 
♦13 

#NULL.(R3) 
(R2) 
4$ 
♦ 13 

#XCSR1,R2 
#XBUF1.R3 
#1000. Rl 
R4.1$ 



: UAIT FOR LAST CHARACTER 

: COUNTER FOR ABOUT 20OMICR0SEC. 



XCSR<7> READY 1? 

IF SO. EXIT UAIT LOOP 

IF NOT 1. CONTINUE UAITING 

XCSR<7>=1? 

IF YES. BRANCH 

XCSR<7> DOES NOT BECOME 1 

TRY TO TRANSMIT NULL CHARACTER 

XCSR<7>=0 



XMIT READY DIDN T GO LOU 



LO 
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SEQ 0076 



2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 

012436 

3000 012440 

3001 012446 

3002 012450 

3003 012454 

3004 012456 

3005 012462 

3006 012464 

3007 012472 

3008 012474 
012500 

012556 

3009 012556 

3010 012562 

3011 012564 

3012 012564 

3013 012570 

3014 012574 

3015 012600 

3016 012604 

3017 012606 

3018 012614 

3019 012622 

3020 012624 

3021 012630 

3022 012632 
3023 

3024 
3025 

3026 012b34 



000004 
122737 
001006 
005737 
001403 
012703 
000536 
032777 
001434 
104401 
000426 



012701 
077101 

012701 
012702 
012703 
105762 
100375 
052762 
032762 
001004 
005062 
104034 
000457 



000001 001220 
001206 
000002 

010000 166446 1002$: 
012502 



S8TTL TEST RCSR BIT 7 AND XCSR BIT 2 

CHECK THAT RCSR<07> CAN BE 0 AND 1 AND THAT XCSR<02> UORKS PROPERLY. 

RCSR <07> RECEIVER DONE 
XCSR <02> MAINTENANCE 

ROUTINE TEST 
(CHECK RCSR<07> AND XCSR<07>) 
WAIT FOR XCSR<07>=#1 
LET XCSR<02>=(fl (LOOP BACK MODE) 
lET XBUF=#125 

UAIT FOR RCSR<07>=#1 NO MORE THAN 200MSEC 
IF RCSR<07> NE #1 THEN 

ERROR (RCSR<07> DOES NOT BECOME 1 OR XCSR<02>D0ES NOT 
UORK) 

ENDIF 

IF RBUF NE #125 THEN 
ERROR 

ENDIF 

IF RCSR<07> NE #0 THEN 

ERROR (RCSR<07>D0ES NOT GO LOU) 

ENDIF 

LET XCSR<02>=#0 
ENDROUITNE 

• • ************************** *******«4t***** A*********** *********** 

t§T17: SCOPE 



100000 



000013 
177560 
000002 
000004 

000004 000004 
000004 000004 

000004 



i:30039$, 
30038$ : 

1001$: 
1000$: 



CMPB 
BNE 
TST 
BEQ 
MOV 
BR 
BIT 
BEQ 
TYPE 
BR 



#APTENV.$ENV 
1002$ 
$PASS 
1002$ 
#2,R3 
12 J 
«6IT12.9SUR 
1000$ 
.30039$ 
30038$ 



IF BIT 



ARE UE IN APT MODE? 
IF NOT: DO THIS TEST 
FIRST PASS?? 
IF YES. DO IT 
LOOP COUNT PP 1 
GO SET UP POINTERS TO SLU 1 
12 IS SET IN SOFTWARE SWITCH REGISTER 



THEN TYPE TEST TRACE 
;TYPE ASCIZ STRING 
GET OVER THE ASCIZ 



ASCIZ <15><12>/tEST 17 - PCSR BIT 7 AND XCSR BIT 2 lEST/ 



1$; 
2$; 



MOV 
SOB 

MOV 
MOV 
MOV 
TSTB 
BPL 
BIS 
BIT 
BNE 
CLR 
ERROR 
BR 



#1 00000, Rl 
Rl.lOOli 

*13.R1 
#RCSR,R2 
#2.R3 
4tA2) 

#6IT02.4(R2) 
#BIT02,4(R2) 
3$ 

4(R2) 
♦34 
TST20 



UAIT FOR LAST CHARACTER 

.•COUNTER FOR ABOUT 200MICR0SEC. 



XCSR<7> READY 1? 
IF NOT 1. CONTINUE WAITING 
SET LOOP BACK MODE 
GOT SET OK? 
IF YES. BRANCH 
RESET TO PRINT ERROR 
XCSR<2> DOES NOT BECOME 1 



CI 2701 060000 



j:EXIT TEST 

' STALL FOR A WHILE IN CASE XCSR<2> CAUSES RCSR<7> TO BE 1 

U: MOV *60000.R1 :STALL IN CASE XCSR<2> SETS REAO^ 



6 
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3027 012640 

3028 012642 

3029 012644 

3030 012646 

3031 012650 
3032 

3033 
3034 

3035 0126S4 

3036 0 2662 

3037 0P666 

3038 01c670 

3039 012672 

3040 012674 

3041 012676 

3042 012700 

3043 012704 

3044 012706 

3045 012714 

3046 012722 

3047 012724 

3048 012732 

3049 012736 

3050 012740 

3051 012742 

3052 012744 

3053 012750 

3054 012752 

3055 012760 

3056 012764 

3057 012770 
3058 



105712 
100402 
077103 
000402 
005762 



4$: 



000002 



5$: 



TSTB 
BMI 
SOB 
BR 

TST 



(R2) 
5$ 

Rl,4$ 
6$ 

2(R2) 



vie lOc 


\}\J\J\JCl 




Ai. 
o» : 


nuv 


\lic 1 UX 


\JO\J\J\Jv 






nuv 










TQTR 
' 0 ID 










DMT 


07710'^ 










10S71P 








TQTR 
1 3 1 D 


100403 








BMI 


005062 


000004 






CLR 


104014 








ERROR 


016237 


000002 


001126 


9$: 


MOV 


022737 


000021 


001126 




CMP 


001406 








BEQ 


012737 


000021 


001124 




MOV 


005062 


000004 






CLR 


104015 








ERROR 


105712 






10$: 


TSTB 


100003 








BPL 


005062 


000004 






CLR 


104016 








ERROR 


042762 


000004 


C00004 


11$: 


SIC 


012702 


176500 




12$: 


MOV 


012701 


000013 






MOV 


077375 








SOB 



TRANSMIT XON AND CHECK RCSR<7> 



*21.6(R2) 
#60600.R1 
(R2) 
8$ 

R1.7$ 

(R^) 

9$ 

4{R2) 
>14 

2(R2).$BDDAT 

#21,$8DDAT 

10$ 

*21.$G00AT 
4(R^) 

♦ 15 
(R2) 
11$ 
4(R2) 

♦ 16 

#BIT02.4(R2) 
*RCSR1.R2 
*13,R1 
R3.i$ 



SEQ 0077 



IP RECEIVER READY SET? 
IF SET. BRANCH 
OTHERWISE. STAY FOR A UHILE 
IF NOT READY. BRANCH 
READ PBUF 



TRANSMIT A CHARACTER 

COUNTER TO WAIT 

RCSR<7> READY 1? 

IF YES. EXIT WAIT LOOP 

OTHERWISE, CONTINUE WAITING 

RCSR<7>=l} 

IF YES. BRANCH 

RESET XCSR<2> 

RECEIVER READY DIDN'T COME UP 
STORE RECEIVED DATA 
DATA RECEIVED OK? 
IF YES. BRANCH 

RESET TO ENABLE SLU 

WRONG CHARACTER REC^^r') 

RCSR<7>=0? 

IF ZERO. BRANCH 

RESET t6 ENABLE SLU 

RCSR<07><>0 AFTER READING RBUF 

DISABLE LOCP BACK MODE 

POINT TO SLU 1 

SET UP COmiER 



N6 



COKDDAO KDJU OA CLUSTER DIAG. 

TEST RESET AND XCSR<2!0> 

3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 
3070 
3071 
3072 
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SBTTL TEST RESET AND XCSR<2!0> 
CHECK THAT RESET CLEARS XCSR<0I2>. 
ROUTINE TEST 
(CHECK RCSR<07> AND XCSR<07> AND RESET) 
LET XCSR<02.00>-#1 (LOOP BACK MODE) 
EXECUTE "RESeT" 
IF XCSR<02!00> NE #0 THEN 
ERROR 

ENDIF 

LET XCSR<02>=*0 
ENDROUTINE 



'.w vv I 0 



012772 

3073 012774 

3074 0130«''2 

3075 013004 
30-'6 013010 

3077 013012 

3078 013016 

3079 013020 

3080 013026 

3081 013030 
013034 

013104 

3082 013104 

3083 013104 

3084 013110 

3085 013114 
3086 

3087 
3063 

3089 013120 

3090 013122 
3C91 013126 

3092 013130 

3093 013134 

3094 013136 

3095 013142 
3096 



000004 
122777 

001006 
005737 
001403 
012703 
000447 
032777 
001426 
104401 
000423 



012702 
012703 
052712 



000005 
032712 
001403 
042712 
104022 
012702 
077314 



OOOOOl 

U01206 
000002 
010000 
013036 



17-'564 
000002 
000005 



000005 
000005 
176504 



001220 



t§T20: SCOPE 



166112 1001$ 



CHPB 
BN£ 
TST 
BEQ 
MOV 
BR 
BIT 
BEQ 
TYPE 
BR 

1:30041$: 
30040$ : 
1000$: 

MOV 
MOV 

1$: BIS 



#APTENV.$ENV 
1001$ 
$PASS 
1001$ 
#2,R3 
lOJ 

*BIT12.8SUR 
1000$ 
.30041$ 
30040$ 



ARE UE IN APT MODE? 
IF NOT: OU THIS TEST 
FIRST PASS?? 
IF YES. DO IT 
LOOP COUNT OF 1 
. GO SET UP POINTERS TC SLU 1 
IF BIT 12 IS SET IN SOFTWARE SUITCH REGISTER 

THEN TYPE TEST TRACE 
iTYPE ASCIZ STRING 
GET OVER THE ASCIZ 



ASCIZ <15^<12>/tEST 20 - RESET AND XCSR<0!2> TEST/ 



#XCSR.R2 
#2.R3 

#81102 !BIT00.(R2) 



:LOOP BACK MODE 
EXECUTE RESET AND VALIDATE THAT XCSR<7.2> BECOMES <1.0> 



10$; 



RESET 

BIT 

BEQ 

BIC 

ERROR 

MOV 

SOB 



«IT02!BITOO.(R2) 
10$ 

♦BIT02!BITOO,(R2) 
♦22 

#XCSR1.R2 
R3.1$ 



; EXECUTE RESET 
;XCSR<2.0> CLEAR? 

sCLEAR THE BITS SO UE CAN REPORT 
;XCSR<2.0> NOT CLEARED ON RESET 
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SE& 0079 



3098 
5099 

3100 

3101 

3102 

3103 

3104 

3105 

3106 

310^ 

3108 

3109 

3110 

3111 

3112 

3113 

3114 

3115 

3116 

3117 

3118 

3119 

3120 

3121 

3122 

3123 

3124 

3125 

3126 

013144 

3127 013146 

3128 013154 

3129 013156 

3130 013162 

3131 013164 
313? 013170 

3133 013176 

3134 013204 

3135 013210 

3136 013216 

3137 013220 
013224 

013306 

3138 013306 

3139 013306 

3140 013314 

3141 013320 

3142 013324 
3143 

3144 
3145 
3146 

3147 013330 

3148 013336 

3149 013344 

3150 013346 



000004 
122737 
001015 
005737 
00141? 
012705 
013737 
012737 
000137 
032777 
001433 
104401 
000430 



012737 
012701 
012704 
012705 



SBTTL TEST - RESET AND INTERRUPT ENABLE BITS 

CHECK THAT INTERRUPTS DON'T HAPPEN AT PRIORITr 4 AND THAT RESET 

CLEARS XCSR<06> AND RCSR<06>. 

RCSR <06> RECEI»/ER INTERRUPT ENABLE 
XCSR <06> TRANSMITTER INTERRUPT ENABLE 



ROUTINE TEST 
LE" 
LE 
SE 
LE 
LE 
LE 
UA 
LE 
UA 



PRIORITY TO 
XCSR<02>-#1 
XCSR<06>-#1 
RCSR<06>=#1 



000001 001220 



60»#A0DRESS.0F ILLEGAL INTERRUPT XRCSR 
64;#ADDRESS.0F ILLEGAL. INTERRUPTIXRCSR 

(LOOPBACK MODE) 
(ENABLE TRANSMIT INTERRUPTS) 
(ENABLE RECEIVE INTERRUPTS) 
T FOR XCSR<07>=*1 (READY TO TRANSMIT) 
XBUF«*NULL (SEND A CHARACTER) 
T FOR ILLEGAL INTERRUPTS (ABOUT 200MSEC) 
EXECUTE "RESET" 
IF XCSR<06> NE *0 
ERROR 

ENDIF 

RESTORE PRIORITY TO NORMAL 
ENDROUTINE 

ROUTINE ILLEGAL INTERRUPT XRCSR 

INCREMENT XRCSR " 
ENDROUTINE 

tST21: SCOPE 



OR RCSR<06> NE *0 OR XRCSR NE #0 THEN 



001206 

000002 
000004 
013666 
013636 
010000 

013226 



013666 
000060 
177560 
000002 



003012 
000004 

165722 1001$; 



000004 



:: 30043$; 
^6042$: 
1000$: 



CMPB 
BNE 
TST 
BEQ 
MOV 
MOV 
MOV 
JMP 
BIT 
BEQ 
TYPE 
BR 



*APTENV.$ENV 
1001$ 
$PASS 
1001$ 
*2,R5 

a#4,SAVTIM 

*100$.3#4 

20$ 

«IT12.3SWR 
1000$ 
.30043$ 
30042$ 



ARE UE IN APT MODE? 
IF NOT: DO THIS TEST 
FIRST PASS?? 
IF YES. DO IT 
LOOP COUNT OF 1 
STORE UNEXPECTED TIMEOUT 
SET UP TIMEOUT 
. GO SET UP POINTERS TO SLU 1 
IF BIT 12 IS SET IN SOFTWARE SUITCH REGISTER 

THEN TYPE TEST TRACE 
;TYPE ASCI2 STRING 
GET OVER THE ASCIZ 



.ASCIZ <15><12>/TEST 21 SLU RESET AND INTERRUPT ENABLE TEST/ 



MOV 
MOV 
MOV 
MOV 



*100$,S*4 
*60.Ri 
*RCSR.R4 
#2.R5 



Rl POINTS TO SLU 0 INTERRUPT VECTOR 
R4 POINTS TO SLU 0 REGISTERS 
R5 IS THE LOOP COUNT 



CHECK THAT INTERRUPTS ENABLE BITS FOR RECEIVER AND TRASMITTER OF SLU 
ARE CLEARED BY RESET 



052764 000100 000004 
032764 000100 000004 
001001 
104067 



i$: BIS *6IT06.4(R4) 

BIT #eiT06,4(R4) 

BNE 2$ 

ERROR ♦67 



SET INTERRUPT ENABLE BIT IN XCSR 
GOT SET OK? 
IF YES. BRANCH 
IN BIT 6 OF XCSR 
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SEC 0080 



3151 C13350 

3152 013354 

3153 013360 

3154 013362 

3155 013364 

3156 013366 

3157 "1337? 

3158 013376 

3159 013400 

3160 013404 

3161 013406 
3162 

3163 
3164 

3165 013410 

3166 013410 

3167 013416 

3168 013424 

3169 013432 

3170 013436 

3171 013440 

3172 013444 

3173 013446 
3174 

3175 

3176 013452 

3177 013454 

3178 013456 

3179 013460 

3180 013464 

3181 013466 
318? 013472 
1183 

3184 
3185 

3186 013500 

3187 013504 

3188 013512 

3189 013516 

3190 013520 

3191 013526 

3192 013532 

3193 013536 

3194 013540 

3195 013544 

3196 013552 

3197 013554 
3198 

3199 

3200 013560 

3201 013562 

3202 013570 

3203 013572 

3204 013574 

3205 013600 
3206 

320"' 



052714 
032714 
001001 
104067 
000005 
032764 
001401 
104022 
032714 
001401 
104022 



012761 
012761 
052764 
012702 
000402 
162702 
106402 
004737 



000402 
104021 
022626 
022702 
001365 
106427 
042764 



012711 
012761 
105764 
100375 
012764 
052714 
012702 
000402 
162702 
052764 
106402 
004737 



000405 
042764 
104021 
022626 
022702 
001357 



000100 
000100 



000100 
000100 



013454 
000340 
000100 
000340 

000040 

026772 



000200 

000340 
000100 



013562 
000340 
000004 

000000 
000100 
000340 

000040 
000004 

026772 



000004 
000200 



000004 



000004 
000006 
000004 



000004 

000002 
000006 

000004 
000004 



2J: BIS *BIT06.(R4) 

BIT #Br06.(R4) 

BNE 3$ 

ERROR ^67 
3$: RESET 

BIT #BIT06.4(R4) 

BEQ 4$ 

ERROR '22 

4$: BIT #6IT06,(R4) 

BEQ 5$ 

ERROR ^22 



SET INTERRUPT ENABLE BIT IN RCSR 
GOT SET OK? 
IF YES. BRANCH 
IN BIT 6 OF RSCR 
INLINE BUS RESET 

XMIT INTERRUPT ENABLE BIT CLEARED? 
IF CLEARED. BRANCH 

INTERRUPT ENABLE NOT CLEARED ON RESET 
RECEIVE INTERRUPT ENBLE CLEARED? 
IF CLEARED. BRANCH 

INTERRUPT ENABLE NOT CLEARED ON RESET 



CHECK THAT TRANSMIT INTERRUPTS DON'T HAPPEN AT PRIORITY HIGHER THAN 3 



6$: 
7$: 



:8$: 

9$: 

10$: 



MOV 

MOV 

BIS 

MOV 

BR 

SUB 

MTPS 

JSR 

MOV 

SOB 

BR 

ERROR 

CMP 

CMP 

BNE 

MTPS 

BIC 



#9J.4(R1) 
*346.6(R1) 
*6IT66.4tR4) 
#340. R^ 
7$ 

*40.R2 
R2 

PC, DEL AY 

*4i.R3 

R3,8$ 

lOl 

♦21 

(SP)*.(SP)* 
#200. R2 
6$ 



#340 



#BIT06.4(R4) 



:MC 



POINT XMIT VECTOR TO PROGRAM AREA 
AT PRIORITY 7 

SET INTERRUPT ENABuE BIT IN XCSR 
SET PRIORITY TO 7 
GO UAIT IN CASE OF INTERRUPTS 
LOWER PRIORITY LEVEL 
SET PRIORITY 
TIMER ROUTINE 
TIME DELAY 
WAIT FOR INTERRUPTS 
IF INTERRUPTS DIDN'T HAPPENED. BRANCH 
INTERRUPTS HAPPEN AT URONG PRIORITY 
CLEAN UP THE STACK 
AT PRIORITY 4? 
IF NOT LAST ONE. CONTINUE 
RESTORE PRIORITY 7 
CLEAR INTERRUPT ENABLE BIT 



CHECK THAT RECEIVE INTERRUPTS DON'T HAPPEN AT PRIORITY HIGHER THAN 3 



MOV #15$. (Rl) 

MOV #340,2(R1) 

11$: TSTB 4(R45 

BPL 11$ 

MOV #NULL,6(R4) 

BIS #6IT06.(R4) 

MOV #340. R2 

BR 13$ 

12$: SUB #40. R2 

13$: BIS #6lt02.4(R4) 

MTPS R2 

JSR PC.DE^AY 

; MOV #140. R3 

;14$: SOB R3,14$ 

BR 16$ 

15$: BIC #6iT02.4(R4) 

ERROR ^21 

CMP (SP)*.(SP)» 

16$: CMP #200. ft2 

BNE 12$ 

! CLEAN UP BEFORE NEXT TEST 



POINT RECEIVE VECTOR TO PROGRAM AREA 

AT PRIORITY 7 

TRANSMITTER READY 

IF NOT. UAIT 

TRY TO TRANSMIT NULL 

SET INTERRUPT ENABLE BIT IN RCSR 

SET PRIORITY TO 7 

GO WAIT IN CASE OF INTERRUPTS 

LOWER PRIORITY LEVEL 

SET LOOP BACK MODE 

SET PRIORITY 

TIMER ROUTINE :MC 

TIME DELAY 

UAIT FOR INTERRUPTS 

IF INTERRUPTS DIDN'T HAPPENED. BRANCH 

CLEAR LOOP BACK MODE 

INTERRUPTS HAPPEN AT URONG PRIORITY 

CLEAN UP THE STACK 

AT PRIORITY 4? 

IF NOT LAST ONE. CONTINUE 



COKOOAO O.ll-OA CLUSTER DIAG. MACRO V05.03 Tuesday 07 -Jan -86 15:18 
^EST - RESET AND INTERRUPT ENABLE BITS 



3208 

3209 013602 

3210 013606 

3211 013612 

3212 013616 

3213 013620 

3214 013622 

3215 013624 

3216 013630 

3217 013636 

3218 013642 

3219 013646 

3220 013650 

3221 013652 

3222 013656 

3223 013664 
3224 

3225 
3226 

32c9 013666 

3230 013672 

3231 013676 

3232 013702 

3233 013704 

3234 013706 

3235 013710 

3236 013714 

3237 013722 
3238 



106427 
042714 
012702 
105714 
100401 
077203 
005764 
042764 
012701 
012704 
005305 
001402 
000137 
013737 

ooo4r 



106427 
042714 
012702 
105714 
100401 
077203 
005764 
042764 
000000 



00034C 
000100 
000400 



000002 

000004 000004 

000300 

176500 



013330 

003012 000004 



000340 

000100 
000400 



000002 

000004 000004 



MTPS #340 

BIC *8IT06.(R4) 

MOV *400.R^ 

17$: TSTB (R4) 

BMI 18$ 

SOB R2.17$ 

18$: TST 2(ft4) 

BIC *BIT02,4{R4) 

20$: MOV «OO.Ri 

MOV #RCSftl.R4 

DEC R5 

BEQ 19$ 

JMP 1$ 

19$: MOV SAVTIM,a*4 

BR TST22 



DEBUG PURPOSES 



100; . MTPS #340 

BIC #6IT06.(R4) 

MOV *400.R^ 

170$: TSTB (R4) 

BMI 180$ 

SOB R2.170$ 

180$: TST 2(ft4) 

BIC #BIT02.4(R4) 
HALT 
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SEQ 008: 



RESTORE PRIORITY 7 

CLEAR INTERRUPT ENABLE BU 

STALL DELAY 

RECEIVE READY? 

STOP WAITING. IF <;0 

OTHERWISE, STAY IN THE LOOP 

READ CHARACTER TRANSMITTED 

CLEAR LOOP BACK MODE 
POINT TO SLU *1 VECTOR 
POINT TO SLU *1 REGISTER 



:RESTORE UNEXPECTED TIMEOUT 
:;G0 TO THE NEXT TEST 



RESTORE PRIORITY 7 
CLEAR INTERRUPT ENABLE BIT 
STALL DELAY 
RECEIVE READY? 
STOP WAITING^ F SO 
OTHERWISE, StAY IN THE LOOP 
READ CHARACTER TRANSMITTED 
CLEP3 LOOP BACK MODE 
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SEQ 008^ 



3240 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3253 

3254 

3255 

3256 

3^57 

3258 

325'» 

3260 

3261 

3262 

3263 

3264 

3265 

3266 

3267 

3268 

3269 

327C 

3271 

013724 

3272 013726 

3273 013734 

3274 013736 

3275 013742 
32/6 013744 

3277 013750 

3278 013754 

3279 013762 

3280 013764 
013770 

014042 

3281 014042 

3282 014046 

3283 014050 

3284 0i;05o 

3285 014056 

3286 014060 
3237 014064 
3238 

3239 
3290 

3291 014066 

3292 014066 



000004 
122737 
001007 
005737 
001404 
012705 
000137 
032777 
001452 
104401 
000424 



012701 
077101 

122737 
001003 
005737 
001172 



SBTTL TEST - INTERRUPT PRIORITY FOR SLU 

CHECK THAT INTERRUPTS HAPPEN AT PRIORITf 3 AND THAT THEY CLEAR 
RCSR<06> AND XCSR<06>. 

ROUTINE TEST 

LET 60=*AOORESS OF LEGAL RINTERRUPT 
LET 64=#ADDRESS OF'LEGAL'XINTERRUPT 
LET XCSR<02> H 
SET PRIORITY TO « 
WAIT FOR XINTERRUPT=#3 
IF XCSR<07> EQ #1 THEN 
ERROR 

ENOIF 

WAIT FOR RINTERRUPT=^3 
IF RCSR<07> EQ #0 THEN 
ERROR 

ENDIF 

LET XCSR<02>=#0 
SET PRIORITY TO NORMAL 
ENDROUTINE 

ROUTINE LEGAL XINTERRUPT 

LET XBOF=#CHfiRACTER 

INCREMENT XINTERRUPT 
ENDROUTINE 

ROUTINE LEGAL RINTERRUPT 
READ RCSR 

INCREMENT RINTERRUPT 
ENDROUTINE 



000001 001220 

001206 

000002 
014320 

010000 165156 
013772 



100000 

000001 001220 
001206 



; ; ****************************** 

l§T22: SCOPE 

CMPB *APTENV.*ENV 

BNE 1002$ 

TST $PASS 

BEQ 1002$ 

MOV *2,R5 

JMP 20 i 

1002$: BIT «eiT12.8SUR 

BEQ 1000$ 

TYPE .30045$ 

BR 30044$ 

.ASCIZ <15><12> 



::30045$ 
i6044$ 

1001$: 
1000$: 



012701 000060 



MOV #100000, Rl 

SOB Rl.lOOlJ 

CMPB #APTENV.$ENV 

BNE 100$ 

TST $PASS 

BNE TST23 



; GET READY FOR INTERRUPTS 
i00$: 



************************** 

ARF WE IN APT MODE? 
IF NOT: DO THIS TEST 
FIRST PASS?? 
IF YES. DO IT 
LOOP dOUNT OF 1 
. GO SET UP POINTERS TO SLU 1 
IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 

THEN TYPE TEST TRACE 
:TYPE ASCIZ STRING 
,iGFT OVER THE ASCIZ 
/tEST 22 - SLU INTERRUPT PRIORITY TEST/ 



WAIT FOR LAST CHARACTER 



:;IF APT AND NOT 



RUNNING IN APT MODE? 
NO. GO DO TEST 
FIRST PASS? 
FIRST PASS. EXIT TEST 



MOV 



#60. Rl 
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3293 014072 

3294 014076 
3295 

3296 014102 

3297 014102 

3298 014104 

3299 014110 

3300 014114 

3301 014122 

3302 014130 

3303 014136 

3304 014144 

3305 014150 

3306 014152 

3307 014154 

3308 014156 
3309 

3310 
3311 

3312 014162 
3313 

3314 014166 

3315 014172 

3316 014176 
3317 

3318 
3319 
3320 

3321 014202 

3322 014204 

3323 014212 

3324 014216 

3325 014224 

3326 014232 

3327 014234 
3328 

3329 
3330 
3331 
3332 

3333 014236 
33^4 014242 

3335 014250 

3336 014254 

3337 014260 

3338 014266 

3339 014270 
3340 

3341 
3342 
3343 

3344 0142''2 

3345 014276 

3346 014300 

3347 014302 

3348 014306 

3349 014312 



012704 


177560 






HOV 


012705 


000002 






MOV 








10$: 




011146 








MOV 


016146 


000004 






MOV 


012711 


014444 






MOV 


012761 


014436 


000004 




MOV 


012761 


A A A7 A A 

000340 


A A A A A 

000002 




UAl 1 

MOV 


012761 


000340 


000006 




MOV 


AC ^'J£. A 

052764 


000004 


AA AA Ail 

000004 




BIS 


012701 


000140 






MOV 


105714 






1$: 


TSTB 


100401 








BMI 


077103 








SOB 


005764 


000002 




2$: 


TST 








i SET PRIORI 


012702 


000200 






MOV 


162702 


000040 




3$: 


SUB 


005037 


002320 






CLR 


005037 


002316 






CLR 



#RCSR.R4 
#2.R5 



(R1),-(SP) 

wO 5 , V. n 1 ; 

#6$,4(R1) 
#346, 2 (Rl) 
#340. 6 CRD 
#'8IT62.4(R4) 
#140.R1 
(R4) 
2i 



2(ft4) 



#200, R2 

#40. R2 
TCOUNT 
RCOUNT 



TRANSMITTER INTERRUPT HERE 



106402 

05Z764 000100 
004737 026772 
042764 000100 
022737 000001 
101041 
103450 



000004 

000004 
002320 



4$; 



MTPS 

BIS 

JSR 

BIC 

CMP 

BHI 

BLO 



R2 

#BIT06,4(R4) 

pc.oelAy 

#b1T06.4(R4) 

#1.TC0UNT 

5$ 

200$ 



RECEIVER INTERRUPT HERE 



052714 
012764 
004737 
042714 
022737 
101043 
103452 



000100 
000000 
026772 
000100 
000001 



000006 
002316 



BIS 
MOV 
JSR 
BIC 
CMP 
BHI 
BLO 



#BIT06,(R4) 

#NULL.6(R4) 

PC.OELAY 

#BIT06,(R4) 

#1. RCOUNT 

7$ 

201$ 



005764 00000? 

005702 
001332 

106427 000340 

005064 000004 

012661 000004 



IF DONE GET OUT. IF NOT LOOP 



9$; 



TST 

TST 

BNE 

MTPS 

CLR 

MOV 



2(R4) 

R2 

3$ 

#340 
4(R4) 

(SP)+.4(R1) 



SEQ 008? 



SAVE PREVIOUS VECTOR ;MC 

II II II II II u 

STORE RECEIVER VECTOR 
STORE TRANSMITTER VECTOR 
AT PRIORITY 7 

FOR RECEIVER AND TRANSMITTER 
SET LOOP BACK MODE 
8^klii.,^8R«yNSXPECTED CHARACTERS 
RECEIVER READY? 
IF YES. BRANCH 

OTHERUISE. UAIT JUST IN CASE 
READ RECEIVER 



; START UITH PRIORITY 3 
;LOUER PRIORITY 

: CLEAR TRANSMITTER COUNTER ;MC 
•.CLEAR RECEIVER COUNTER ;MC 



TRY TO DO AT LOUER PRIORITY 
LOOP BACK £ INTERRUPT ENABLE 
UAIT DELAY FOR INTERRUPT :MC 
CLEAR INTERRUPT ENABLE 
ANY INTERRUPT HAPPENED ? :MC 
NO XHIT INTERRUPT :MC 
TOO MANY XMIT INTERRUPTS :MC 



SET RECEIVE INTERRUPT 
TRANSMIT NULL 

UAIT DELAY FOR INTERRUPT :MC 
CLEAR INTERRUPT ENABLE 
ONE INTERRUPT HAPPENED ? :MC 
NO RECEIVER INTERRUPTS sMC 
2 MANY RECEIVER INTERRUPfS ;MC 



READ RECEIVER BUFFER 
PRIORITY 0 
IF NOT YET. CONTINUE 
RAISE PRIORITY TO 7 
CLEAR XCSR 

GET PREVIOUS VECTOR BACK 



b / 
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3350 C14316 

3351 014320 

3352 014324 

3353 014330 

3354 014332 

3355 014334 
3356 

3357 
3358 
3359 
3360 

3361 014336 

3362 014342 

3363 014344 

3364 014352 

3365 014354 
3366 

3367 014356 

3368 014362 

3369 014364 

3370 014372 

3371 014374 
3372 

3373 014376 

3374 014402 

3375 014404 

3376 014412 

3377 014414 
3378 

3379 014416 

3380 014422 

3381 014424 

3382 014432 

3383 014434 
3384 

3385 
3386 
338"' 
3388 

3389 014436 

3390 014442 
3391 

3392 014444 

3393 014450 
3394 

3395 



012611 
012704 
012701 
005305 
001263 
000446 



012661 
012611 
042764 
104070 
000436 

012661 
012611 
042764 
104074 
000426 

012661 
012611 
042764 
104071 
000416 

012661 
012611 
042764 
104075 
000406 



005237 
000002 

005237 
000002 



176500 
000300 



MOV 

20$: MOV 
MOV 
DEC 
BNE 
BR 



(SP)*,(R1) 

#RCSR1,R4 

#300. Ri 

R5 

10$ 

TST23 



000004 

000104 000004 
000004 

000104 OOOOOA 
000004 

000104 000004 
000004 

000104 000004 



5$: 



200$: 



7$; 



201$; 



MOV 

MOV 

SIC 

ERROR 

BR 

MOV 

MOV 

BIC 

ERROR 

BR 

MOV 

MOV 
BIC 
ERROR 
BR 

MOV 

MOV 

BIC 

ERROR 

BR 



s;IF ERROR. EXIT TEST 



ERROR ROUTINES 



EXIT 



(SP)*.4(R1) 
(SP)*.(R1) 
#BIT05!BIT06.4(R4) 
♦70 

TST23 ;;IF ERROR, 

(SP)*.4(R1) 

(SP)t.(Rl) 

#6IT0^!BIT06.4(R4) 

TST23 ;;IF ERROR. EXIT 

(SP)*,4(R1) 

(SP)*.(R1) 

#8IT0^!BIT06.4(R4) 

TST23 ;:IF ERROR. EXIT 

(SPh,4(Rl) 

(SP)>.(R1) 

*BIT0^!BIT06,4(R4) 

TST23 ;:IF ERROR. EXIT 



GET PREVIOUS VECTOR BACK 

II nil n • nil 

CLEAR LOOP BACK BIT 
NO XMIT INTERRUPTS 
TEST 

GET PREVIOUS VECTOR BACK 

I nil II II II II 

CLEAR LOOP BACK MODE BIT 
2 MANY XMIT INTERRRUPTS ;MC 
TEST 

GET PREVIOUS VECTOR BACK 

(» I) II II II II II 

CLEAR LOOP BACK MODE BIT 
NO RECEIVE INTERRUPTS 
TEST 

GET PREVIOUS VECTOR BACK 

II II II II II II II 

CLEAR LOOP BACK MODE BIT 
2 MANY RECEIVER INTERRUPTS 
TEST 



INTERRUPT SERVICE ROUTINES 



SEQ 0084 



002320 
002316 



6$: 



8$; 



INC 
RTI 

INC 
RTI 



TCOUNT 



RCOUNT 



INCREMENT TRANS. COUNTER :MC 
.•RETURN FROM XMIT INTERRUPf :MC 

INCREMENT RECEIVER COUNTER: MC 
: RETURN FROM RECEIVER INTERAuP 
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SEQ 0085 



3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
3431 
3432 
3433 
3434 

3435 
3436 
3437 



SBTTL TEST - BREAK CONDITION 

SLU #1 IS TESTED SINCE SLU #0 IS BEING USED AS THE CONSOLE 
CHECK THAT SENDING BREAK CAUSES FRAMING ERROR. 



RCSR 



<15> 
<13> 
<11> 



XCSR <00> 



ERROR 

FRAMING ERROR 
RECEIVED BREAK 

TRANSMIT BREAK 



3438 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
3449 



014452 000004 

014454 032777 010000 

014462 001426 

014464 104401 014472 

014470 000423 

014540 
014540 



014540 052737 000004 

014546 052737 000001 

014554 032737 000001 

014562 001001 

014564 104027 

014566 012701 000100 



164456 



ROUTINE TEST 

LET XCSR<02>=#1 
LET XCSR<00>=#1 
WAIT FOR RCSR<07>=#1 
IF RBUF<15!13!11> NE #1 THEN 

ERROR (ERROR. FRAMING ERROR, RECEIVE BREAK NE 1) 

ENDIF 

LET XCSR<00>=#0 
IF XCSR<00> NE #0 THEN 

ERROR (XCSR<00> DOES NOT GO LOW) 

ENDIF 

WAIT FOR XCSR<07>=wl 

LET XByF=«NyLL( SEND NULL CHARACTER TO SEE ERROR CLEARED) 
WAIT FOR RCSR<07>=#1 
IF RBUF<15!13!11> NE *0 THEN 
ERROR 

ENDIF 

LET XCSR<00>=#1 
EXECUTE "RESET" 
IF XCSR<00> NE #0 THEN 
ERROR 

ENDIF 

LET XCSR<02>»*0 
ENOROUTINE 

t§T23: SCOPE 



30047$: 
30046 J : 
1000$- 



BIT 
BEQ 
TYPE 
BR 



#BIT12.8SWR 
1000$ 
.30047$ 
30046$ 



IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 

THEN TYPE TEST TRACE 
;TYPE ASCIZ STRING 
GET OVER THE ASCIZ 



ASCIZ <15><12>/tEST 23 - SLU BREAK CONDITION TEST/ 



SEND BREAK AND CHECK ERROR BITS IN RBUF 



176504 1$: 

176504 

176504 



2$: 



BIS #BIT02.XCSR1 

BIS #BIT00,XCSR1 

BIT OBITOO.XCSRl 

BNE 2$ 

ERROR ^27 

MOV *100,R1 



TRANSMIT IN LOOP BACK 
SET SEND BREAK BIT 
GOT SET OK? 
IF YES. BRANCH 
WRITING 1 TO XCSR<0> 
STALL DELAY 
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3450 014572 


105737 


176500 




3451 014576 


100401 






3452 014600 


077104 






3453 014602 


005737 


176502 




3454 014606 


052737 


000001 


176504 


3455 014614 


012701 


001000 




3456 014620 


077101 






3457 014622 


105737 


176500 




3458 014626 


J 003 75 






3459 014630 


013737 


176502 


001126 


^460 014636 


022737 


124000 


001126 


4461 014644 


001405 






3462 014646 


042737 


000004 


176504 


3463 014654 


104025 






3464 014656 


000443 






3465 014660 


042737 


000001 


176504 


3466 014666 


032737 


000001 


176504 


3467 014674 


001405 






3468 014676 


042737 


000004 


176504 


3469 014704 


104027 






3470 014706 
34''1 


000427 












3472 








3473 








3474 014710 








3475 014710 


105737 


176504 




3476 014714 


100375 






3477 014716 


012737 


000177 


176506 


3478 014724 


105737 


176500 




3479 014/30 


100375 






3480 014732 


013737 


176502 


001126 


3^81 014740 


032737 


124000 


001126 


3482 014746 


001404 






3483 014750 


042737 


000004 


176504 


3484 014756 


104025 






3485 014760 


042737 


000004 


176504 


3486 








3487 









4$; 

5i: 



6$: 
7$; 



8$: 



TSTB RCSRl 

BMI 5$ 

SOB Rl,4$ 

TST RBUFl 

BIS #6IT00.XCSR1 

MOV *1000.ftl 

SOB R1.6$ 

TSTB RC§R1 

BPL 7$ 

MOV RBUFl. $BDDAT 

CMP *BIT15IBIT13.'BIT11.$600AT 

BEQ 8$ 

BIC #6IT02.XCSR1 

ERROR *25 

BR TST24 ;;EXIT 

BIC #BIT00.XCSR1 

BIT *6IT00.XCSR1 

BEQ 9$ 

BIC *BIT02.XCSR1 

ERROR *27 

BR TST24 ;;EXIT 



; CHECK THAT BREAK CONDITION IS CLEARED 
10$; 



11$; 



12$: 



MOV 
TSTB 
BPL 
MOV 
TSTB 
BPL 
MOV 
BIT 
BEQ 
BIC 
ERROR 
BIC 



SAV6R.BCSR 
XCSRl 
10$ 

#177,XBUF1 

RCSRi 

11$ 

RBUF1,$B00AT 

*BIT15!BIT13!BIT11.$BDDAT 
12$ 

^IT02. XCSRl 
♦25 

*BIT02, XCSRl 



SEQ 0086 



RECEIVER READY? 
IF YES, BRANCH 

UAIT JUST IN CASE OF A CHARACTER 

READ A CHARACTER 

TRANSMIT BREAK 

ANOTHER DELAY TO GET BREAK 

UAIT A WHILE 

RECEIVER READY? 

IF NOT, UAIT 

STORE WHATEVER RECEIVED 

ALL ERROR BITS SET? 

IF YES. BRANCH 

RESET to ENABLE SLU 

PREAK DOES NOT CAUSE ERRORS 

CLEAR TRANSMIT BREAK 
GOT CLEARED OK? 
IF YES. BRANCH 
RESET to ENABLE SLU 
ERROR WRITING 0 TO XCSR<0> 



RESTORE BCSR 

XMIT READY? 

IF NOT. UAIT 

TRY TO TRANSMIT DELETE 

RECEIVER READY 

IF NOT. UAIT 

STORE RECEIVE BUFFER 

ERRORS CLEARED? 

IF YES. BRANCH 

RESET to ENABLE SLU 

BREAK NOT CLEARED ON NEXT CHARACTER 

CLEAR LOOP BACK MODE 



J7 

COKDDAO KDJll-DA CLUSTER DIA6. 

TEST - OVERRUN CONDITION 

348<» 
3490 
3491 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
3500 
3501 
3502 
3503 
3504 
3505 
3506 
3507 
3508 
3509 
3510 
3511 
3512 
3513 
3514 
3515 
3516 
3517 
3518 
3519 

014766 000004 

3520 014770 032777 010000 

3521 014776 001432 

3522 015000 104401 015006 
015004 000424 



015056 

3523 015056 

3524 015062 

3525 015064 

3526 015072 

3527 015076 

3528 015100 

3529 015106 

3530 015112 

3531 015114 

3532 015120 

3533 015122 

3534 015130 

3535 015134 

3536 015136 

3537 015144 

3538 015152 

3539 015160 

3540 015162 

3541 015170 



012701 
077101 
052737 
105737 
100375 
012737 
105737 
100375 
105737 
100375 
012737 
01P703 
07/301 
013737 
012737 
122737 
001404 
042737 
104031 
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SBTTL TEST - OVERRUN CONDITION 
CHECK OVERRUN CONDITION 



SEO 0087 



RCSR <14> 



OVERRUN ERROR 



SLU *1 IS TESTED SINCE SLU #0 IS BEING USED AS THE CONSOLE 

ROUTINE TEST 

LET XCSR<02>=#1 (LOOPBACK MODE) 
UAIT FOR XCSR<07>=#1 
LET XBUF=#252 
WAIT FOR XCSR<07>=#1 

LET XBUF=#125 (SEND THE 2ND U/0 READING THE 1ST CHARACTER) 
UAIT FOR RCSR<07>=#1 

STALL FOR LOWEST BAUD RATE TO GET 2ND CHARACTER 
IF LOW BYTE OF RBUF NE 1^^125 THEN 

ERROR (1ST CHARACTER WASN'T OVERRUN) 

ENDIF 

IF RBUF<15!14> NE #1 THEN 

ERROR (NO OVERRUN BIT SET) 

ENDIF 

WAIT FOR XCSR<07>=#1 
LET XBUF=#NULL 
WAIT FOR RCSR<07>=#1 
IF RBUF<15!14> NE #0 THEN 

ERROR (WASN'T CLEARED ON THE NEXT CHARACTER RECEIVED) 

ENDIF 

LET XCSR<02>=*0 
ENDROUTINE 



164142 



100000 

000004 
176504 

000021 
176500 

176504 

000177 
175000 

176502 
140177 
000177 



TST24: SCOPE 
BIT 
BEO 
TYPE 
BR 

2:30049$: 
i6048$ 



«6IT12,9SWR 
100$ 
.30049$ 
^0048$ 
.ASCIZ <15><12> 



IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 

THEN TYPE TEST TRACE 
:TYPE ASCIZ STRING 
aGET OVER T-^'" ASCIZ 
/TEST 24 - SuU OVERRUN CONDITION TEST/ 



176b04 
176506 

176506 



001126 
001124 
001126 



1001$: 

100$: 

1$: 



2$; 



3$; 



4$: 



000004 176504 



MOV #100000, Rl 

SOB Rl.lOOli 

BIS «1t02.XCSR1 

TSTB XCSRl 

BPL 1$ 

MOV *21.XBUF1 

TSTB RCSftl 

BPL 2$ 

TSTB XCSRl 

BPL 3$ 

MOV S177.XBUF1 

MOV #175000. R3 

SOB R3.4$ 

MOV RBUF1.$BD0AT 

MOV *140177.$6DDAT 

CMPB #177,$b6DAT 

BEQ 5$ 

BIC 4«IT02. XCSRl 

ERROR +31 



WAIT FOR .AST CHARACTER 

;SET LOOP BACK MODE 
;READY TO TRANSMIT? 
;IF NOT. UAIT 
TRANSMIT A CHARACTER 
;RECEIVE READY? 
;IF NOT. UAIT 
;READY TO TRANSMIT? 
;IF NOT. WAIT 

; TRANSMIT THE 2ND CHARACTER 

: STALL FOR THE 2ND CHARACTER $$$ 

:WAIT A WHILE 

: STORE RECEIVED DATA 

jEXPETED 'ATTERN 

;2ND CHARACTER RECEIVED? 

;IF YES. BRANCH 

:RESET to ENABLE SLU 

:2ND CHARACTER DIDN'T OVERRUN 1ST 



COKDD/IO I'DJll-DA CLUSTER DIAG. 
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3542 015172 

3543 015200 

3544 015202 

3545 015206 

3546 015210 
3547 

3548 
3549 

3550 015212 

3551 015216 

3552 015220 

3553 Ol5<i26 

3554 015232 

3555 015234 

3556 015242 

3557 015244 

3558 015252 

3559 015254 
3560 

3561 0J5262 

3562 015262 
3563 

3564 015:b4 

3565 

3566 



122737 
001404 
005037 
104032 
000426 



000300 
176504 
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001127 5$: CHPB «IT7!BIT6.$BDDATtl 

BEQ 6i 

CLR XCSRl 

ERROR ^32 

BR TST25 ;:EXIT 



SEQ 0088 



OVERRUN ERROR BITS SET? 

IF YES. BRANCH 

RESET To ENABLE SLU 

OVERRUN DOES NOT SET ERROKS BITS 



SEND NEaT CHARACTER TO CLEAR OVERRUN CONDITIONS 



105737 


176504 




1 


TSTB 


100375 








BPL 


012737 


000000 


176506 




MOV 


105737 


176500 




7$: 


TSTB 


100375 








BPL 


032737 


140000 


176502 




BIT 


001404 








BEQ 


042737 


000004 


176504 




BIC 


104033 








ERROR 


042737 


000004 


176504 


8J: 


BIC 








SLEND: 




000401 








BR 


000240 






NOSLU: 


NOP 



XCSRl 
bi 

*NULL.XBUF1 

RCSRl 

7J 

*6IT15!BIT14,RBUF1 
8$ 

#BIT02. XCSRl 
JeiT02. XCSRl 



TRANSMITTER READY? 

IF NOT. BRANCH AND WAIT 

TRANSMIT NULL CHARACTER 

RECEIVER READY? 

IF NOT. BRANCH AND UAIT 

ANY ERRORS SET? 

IF NOT. BRANCH 

RESET TO ENABLE SLU 

OVERRUN NOT CLEARED ON NEXT CHAR. 

CLEAR LOOP BACK MODE BIT 



;LAST SLU TEST 

TST25 ;;G0 TO THE NEXT TEST 

;UE SKIPPED ALL SLU TEST IN APT MODE ON MORE THAN 1 PASS 



COKOOAO KOJU-OA CLUSTER OIAG. 

TEST - LED'S ON 

3568 

3569 

3570 

3571 

3572 

3573 

3574 

3575 

3576 

3577 

3578 

3579 

3580 

3581 

3582 

3583 

015266 000004 

3584 015270 032"'77 010000 

3585 015276 001423 

3536 015300 104401 015306 
015304 000420 



015346 

3587 

3588 015346 

3589 015346 005005 

3590 015350 032737 

3591 015356 001413 

3592 015360 005737 

3593 015364 001010 

3594 015366 122737 

3595 015374 001404 

3596 015376 005105 

3597 015400 012737 
3598 

3599 015406 012704 

3600 015412 012701 

3601 015416 110137 

3602 015422 012703 

3603 015426 012702 

3604 015432 077201 

3605 015434 077304 

3606 015436 000241 
3607 

3608 
3609 

3610 015440 

3611 015440 

3612 015442 

3613 015444 

3614 015446 

3615 015450 

3616 015454 

3617 015460 
3618 
3619 

3620 015462 
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SBT'L TEST - LEO'S ON 
LED'S ON 

DISPLAYED In'^LED^S^^'^''^^^ ^° CONTAIN A ROTATING PATTERN 

ROUTINE TEST 

UHILE A KEY NOT RECEIVED FROM KEYBOARD DO 
STALL ALLOUING TIME TO SEE PATTERN 



SEQ 0089 



ENDDO 
ENDROUTINE 



ROTATE LEFT TO .IGHT UP NEXT LED' 5 



163642 



IST25: SCOPE 



BIT 
6EQ 
TYPE 
BR 

1:30051$: 
36050$ : 



1000 J: 



000001 
001206 
000001 



000052 



001220 



000005 002314 

000020 
000000 

177520 
000004 
177777 



005201 
077413 
005705 
001411 

104401 001170 
005337 002314 
001352 



005737 177562 



1$: 

2$: 

3$: 
4$: 



7$; 



5$ 



D.R 

BIT 

BEQ 

TST 

BNE 

CMPB 

BEQ 

COM 

MOV 

MOV 

MOV 

MOVB 

MOV 

MOV 

SOB 

SOB 

CLC 



INC 

SOB 

TST 

BEQ 

TYPE 

DEC 

BNE 



TST 



*BI'12,3SUR 
1000$ 
.30051$ 
30050$ 



IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 

THEN TYPE TEST TRACE 
jTYPE ASCIZ STRING 
GET OVER THE ASCIZ 



.ASCIZ <15><i2>/T£ST 25 - KDJll-OA LED TESTS/ 



R5 

«8IT00.a*52 
1$ 

JPASS 
1$ 

*APTENV.$ENV 

1$ 

R5 

*5.LEDCNT 

*20.R4 
«0.ftl 

R1.S*NATREG 

*4.R3 

*l)7777,R2 

R2.4$ 

R3,3$ 



Rl 

R4,2$ 

R5 

6$ 

.$BELL 
LEDCNT 
1$ 



FLAG IN NO INTERRRUPT MODE 
IF RUNNING IN CHAIN MODE 
SKIP PRINTOUTS 
1ST PASS? 

IF NOT. SKIP PRINTOUTS 
APT M06e? 

YES, SKIP PRINTOUT S 

CLEAR FLAG IN INTERRUPT MODE 

00 PATTERN 5 TIMES ;MC 

•^CR EACH LOOP 
START WITH 1 
TURN OFF FIRST LEO 
STALL DELAY 
STALL DELAY 
WAIT A UHILE 
WAIT A UHILE 



1 19 OCTAL :MC 

20 0 OCTAL jMC 

RUNNING IN INTERACTIVE MODE? 

IF NOT. EXIT 



RBJF 



jREPEAT PATTERN 5 TIMES 



;REAO BUFFER 



WODAO KDJll-DA CLUSTER DIAG. HACRO V05.03 Tuesday 07 Jan-86 15:18 Page 34 1 
TEST - LED S ON 

3621 015466 062706 000004 ADO #4.SP jADJUST STACK 

3622 015472 112737 000000 177520 6$: HOVB *O.NATREG ;N0 HORE 

3623 015500 000400 BR TSt26 ;:EXITTEST 
3624 



SEQ 0090 



,N7 
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SEQ 0091 



3626 

3627 

3628 

3629 

3630 

3631 

3632 

3633 

3634 

3635 

3636 

3637 

3638 

3639 

3640 

3641 

3642 

3643 

3644 

3645 

3646 

3647 

3648 

3649 

3650 

3651 

3652 

3653 

3654 

3655 

015502 

3656 
3657 

3658 015504 

3659 015510 

3660 015512 

3661 015520 

3662 015522 
015526 



PTS/ 



015632 
3663 015632 
3664 
3665 
3666 

3667 015632 

3668 015636 

3669 015644 

3670 015652 

3671 015656 
3672 

3673 
3674 

3675 015662 

3676 015662 

3677 015666 

3678 015672 



000004 



005737 002274 
001530 

032777 010000 
001444 

104401 015530 
000441 



163420 



SBTTL TEST - DIFFERENT LEVELS INTERRUPTS 
DIFFERENT LEVELS OF INTERRUPTS 

THIS TEST UILL PROGRAM Q22 BUS EXERCISER TO INTERRUPT AT DIFFERENT 
LEVELS. ARBITRATION BETWEEN DIFFERENT LEVELS OF INTERRUPTS AND 
PIRQ'S UILL BE TESTED. 

CHECK DIFFERENT LEVELS OF INTERRUPTS. 
ROUTINE TEST 

SET VECTOR TO INTERRUPT DMA 
FOR INTERRUPTS FROM 4 TO 7 DO 
ENABLE INTERRUPTS 
SET PRIORITY=INTERUPT 
IF INTERRUPT FLAG SET THEN 
ERROR 

ENOIF 

ENABLE INTERRUPTS 
SET PRI0RITY=INTERRUPT-1 
IF INTERRUPT.FLAG NOTSET THEN 
ERROR 

ENDIF 

LET INTERRUPT DMA=0 

ENDDQ 
ENDROUTINE 

ROUTINE INTERUPT DMA 

LET INTERRUPT FLAG=1 

RETURN 
.cNOROUTINE 

t§T26: KOPE 

i 8IT «IT07,a*52 ;UFD MODE? 

; SKIP NE.<IF SO. EXIT TEST> 

TST CSftl :AT LEAST Qf^E Q22BE FOUND? 

BEQ TST27 jjIF NOT. EXIT T^ST 

BIT «lTl2.aSUR : IF BIT 12 IS SET IN SOFTUARE SWITCH REGISTER 

BEQ 1000$ : THEN TYPE TEST TRACE 

TYPE .30053$ ;:TYPE ASCIZ STRING 

BR i0052$ siGET OVER THE ASCIZ 

30053*: .ASCIZ <15><12>/tEST 26 - ARBITRATION BETWEEN CPU PRIORITY AND Q BUS INTERRU 
36052$ : 
1000$: 



013703 
012777 
012777 
012700 
012701 



002274 
015706 
000340 
003002 
000340 



SETUP INITIAL PRIORITY TO 7 



164442 
164436 



MOV 
MOV 
MOV 
MOV 
MOV 



CSR1.R3 
«5$.dVQBEl 
#340.8VQPR1 
«Q22^N,R0 
#340. Ri 



DO FOR FIRST FOUND Q22BE 

POINT INTERRUPT VECTOR TO PROGRAM 

AT PRIORITY 7 

START WITH 4 FOR INTERRUPTS 
LOU BOUNDARY FOR NO INTERRUPTS 



CHECK THAT INTERRUPTS DON'T HAPPEN AT PRIORITY HIGHER THAN BR 



106427 000200 
004737 026210 
012U77 164400 



4$: 



MTPS 

JSR 

MOV 



*200 

PC.Q22INT 
(R6)^.3CSR2 



:SET PRIORITY NOT TO INTERRUPT 
: ENABLE INTERRW>TS 
;CLEAR GO BIT 
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SEQ 0092 



3679 015675 

3680 015700 

3681 015702 

3682 015^04 

3683 015706 

3684 015710 

3685 015712 

3686 015714 
368"' 

3688 
3689 

3690 015714 

3691 015722 

3692 015730 
3693 

3694 
3695 

3696 015734 

3697 015740 

3698 015744 

3699 015750 

3700 015752 

3701 015754 

3702 015756 

3703 015760 

3704 015762 

3705 015764 
3^06 015766 
3707 



000240 
000240 
000240 
000403 
104037 
005726 
005"'26 



0127^7 
0127^7 
012700 



106427 
004737 
011077 
000240 
000240 
000240 
104037 
000402 
005726 
005726 
106427 



5»: 

6J: 



NOP 
NOP 
NOP 
BR 

ERROR 

TST 

TST 



6) 

♦37 



INTERRUPT AT ALL LEVELS 



015762 
000340 
003002 



000140 
026210 
164326 



164T64 
164360 



tNQ22: 



MOV 
MOV 
MOV 



*5$.3VQBE1 

*340.3VQPR1 

«Q22EN,R0 



IF NO INTERUPf . BRANCH 
INTERRUPTS HAPPEN 
RESTORE STACK 



; POINT INTERRUPT VECTOR TO PROGRAM 
:AT PRIORITY 7 

; START UITH 4 FOR INTERRUPTS 



CHECK THAT INTERRUPTS HAPPEN AT PRIORITY LOUER THAN BR 



4$: 



000340 



5J; 

6$: 



MIPS 

JSR 

MOV 

NOP 

NOP 

NOP 

ERROR 

BR 

TST 

TST 

MIPS 



#140 



PC.Q22INT 
(R6).9CSR2 



>37 
6) 

(SP)» 
(SP)* 
#340 



SE"' PRIORITY TO INTERRUPT 
ENABLE INTERRUPTS 
CLEAR GO BIT 
UAIT A UHILE 



INTERRUPTS DON'T HAPPEN 
;D0N'T RESTORE STACK 
;RF£10RE STACK 



;BACK TO 7 
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SEQ 0093 



3 '09 
3710 
3711 
3712 
3713 
3714 
3715 
3^16 
3717 
3718 
3719 
3720 
3^21 
3722 
3^23 
3724 

3725 
3 '26 
3727 
3728 
3729 
3730 
3731 



015772 000004 



015774 
016000 
016002 
016010 
016012 
016016 



016114 

3732 016114 

3733 016114 

3734 016122 

3735 016130 

3736 016136 

3737 016144 

3738 016150 

3739 016154 

3740 016160 

3741 016164 

3742 016170 

3743 016174 

3744 016200 

3745 016204 

3746 016206 

3747 016210 

3748 016212 

3749 016214 

3750 016216 

3751 016220 

3752 016222 

3753 016224 

3754 016226 

3755 016230 

3756 016234 

3757 016240 
3758 

3"59 016242 



005737 
001521 
032777 
001441 
104401 
000436 



012777 
012777 
012737 
012737 
012700 
012704 
013703 
012702 
106427 
012437 
004737 
012077 
106402 
000240 
000240 
000240 
104035 
005726 
005726 
000402 
005726 
005726 
005037 
005077 
000401 

010000 



§§JIb rJML.- ftSgn^SnON BETWEEN PIRQ'S AND INTERRUPTS 
CHECK PRIORITY ORDER BETWEEN PIRQ'S AND INTERRUPTS. 
ROUTINE TEST 

IF UFD THEN 

EXIT TEST 

ENDIF 

DO FOR I FROM #6 DOWN TO «3 
SET PRIORITY TO I 

ENABLE INTERRUPTCM) AND PIRQ(I»1) 
IF INTERRUPT(I*1) WAS BEFORE PIRQ(i*l) THEN 
ERROR 

ENDIF 

ENODO 
ENDROUTINE 



002274 
010000 
016020 



016214 
000340 
016224 
000340 
003002 
016242 
C 02274 
000140 
000340 
177772 
026210 
164072 



163130 



tST27: SCOPE 

#6IT07.a*52 ;UFD MODE? 

NE.<IF SO. EXIT TEST> 

?i?Jo „IF NOT. EXIT T{§^"^' ^O*"' 

«IT1J.»SU« , If BIT l^^IS SET IN SOFTU«E SWITCH REGISTE 

.30055$ ::TYPE ASCIZ STRInG 

30054$ ;:6ET OVER THE ASCIZ 

-ASCIZ <15><12>/tEST 27 - ARBITRATION BETWEEN PIRQ S AND Q-BUS INTERRUPTS/ 



164164 
164160 
000240 
000242 



177772 
164036 



BIT 

: SKIP 
TST 
BEQ 
BIT 
BEQ 
TYPE 
BR 

:: 30055$: 
i6054$ : 
1000$: 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

2$: MIPS 
MOV 
JSR 
MOV 
MTPS 
NOP 
NOP 
NOP 

3$: ERROR 
TST 
TST 
BR 

4$: TST 
TST 

5$: CLR 
CLR 
BR 



«3$.9VQBE1 

«346.9VQPR1 

*4$,AlRQVEC 

«40.PIRQVEC*2 

*Q22^N.P0 

«PIRQT.R4 

csri.rS 

#140. R2 
«340 

(R4)*.PIRQ 
PC.Q2^INT 
(R6)*.SCSR2 
R2 



►35 



:sp)* 

5$ 

(SP)* 

(SP)* 

PIRQ 

9CSR2 

TST30 



SETUP Q22BE VECTOR 
AT PRIORITY 7 
SETUP PIRQ VECTOR 
AT PRIORITY 7 

POINT THRU PRIORITIES FOR Q22BE 

POINTER THRU PIRQ'S 

DO FOR FIRST Q22BE 

START WITH CPU PRIORITY AT 7 

RAISE PRIORITY TO 7 

SET PRIORITY FOR PIRQ'S 

INITIALISE Q22BE TO INTERRUPT 

SET DONE BIT 

LOWER PRIORITY 



; PIRQ'S DON'T TA^E OVER BIRQ S 
; CLEAN UP STACK 

: BRANCH AROUND PIRQ INTERRUPT 



lEAN UP STACK 

;CLEAR ANY REQUESTS 
: CLEAR JUST IN CASE 
jsGO TO THE NEXT TEST 



PIRQT: .WORD 10000 :PIRQ S 4 



COKDOAO 
TEST 
3761 



•OjU-OA cluster DIAG. macro V05.03 Tuesday 07-Jar,-86 15:18 Page 37 
ARBITRATION BETWEEN PIRQ S AND INTERRUPTS 



3762 
3 63 
3764 
3765 
3766 

3 "68 

3769 
3770 
37-1 



016244 
016246 
016252 

016256 
0162M 
016266 
016272 
016274 



000004 
005037 
000137 

123727 
001005 
005737 
001402 
005337 



016300 000205 



17'572 
030014 

001220 

003030 

003030 



tST30: 



000001 VIREOP: 



IJ: 



SCOPE 

CLR 

JUP 

CUPS 

BNE 

TST 
BEQ 
DEC 



rts 



3«SR0 
$EOP 

»ENV.«1 
IJ 

CCHPAS 
1$ 

CCHPAS 



SEQ 0094 



:OISABLE MMU (DO NOT REHOVE !!!) 
sEXIT 

; if not APT. don't worry about 
; nainta'n cache rout in pascnt 



; Ths VIREOP ROUTINE to provide common End of Pass exit point 
r5 
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3775 
3776 
3777 
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0 


L6302 


0 


6302 


0 


6305 


C] 


6310 


0 


6313 


0 


6316 


0 


6321 


0 


6324 


0 


16327 


0: 


6332 



016335 
016340 
016343 
016346 

3778 016350 
016353 
016356 
016361 
016364 
01636"' 
01637? 
016375 
016400 
016403 

3779 016405 
016410 
016413 
016416 
016421 
016424 
016427 

3780 016430 
016433 
016436 
016441 
016444 
016447 
016452 
016455 
016460 
016463 
016466 
016471 

3781 016472 
016475 
016500 
016503 
016506 
016511 
016514 

3732 016517 
016522 
016525 
016530 
016533 
016536 



015 


012 


113 


104 


112 


061 


061 


055 


104 


101 


040 


103 


120 


125 


040 


104 


111 


101 


107 


116 


117 


123 


124 


111 


103 


040 


055 


040 


103 


117 


113 


104 


104 


101 


060 


015 


012 


012 




123 


127 


111 


124 


103 


110 


040 
107 


122 


105 


111 


123 


124 


105 


122 


040 


123 


105 


114 


105 


103 


124 


111 


117 


116 


072 


012 


012 


015 




102 


111 


124 


040 


116 


125 




102 


105 


122 


Oil 


Oil 


Oil 


Oil 


125 


123 


105 


012 


015 






055 


055 


055 


055 


055 


055 


055 


055 


055 


055 


Oil 


Oil 


Oil 


055 


055 


055 


055 


055 


055 


055 


055 


055 


055 


055 


055 


055 


055 


055 


055 


055 


055 


055 


012 


015 






Oil 


061 


065 


Oil 


Oil 


Oil 


110 


101 


114 


124 


040 


117 


116 


040 


105 


122 


122 


117 


122 


012 


015 


Oil 


061 


064 


Oil 


Oil 


Oil 


114 


117 


117 


120 


040 


117 


116 


040 


120 


122 


105 


123 



SEQ 0091 



.SBTTl global error MESSAGES 
SUTSEL • 

.ASCII <15><12>/K0J11-0A CPU DIAGNOSTIC - C0K00A0/<15><12><12> 



.ASCII /SWITCH REGISTER SELECTI0N:/<12><12><15> 



.ASCII /BIT NUMBER 



USE/<12><15> 



.ASCII /■ 



-/<12><15> 



.ASCII / 



15 



HALT ON ERR0R/<12><15> 



.ASCII / 



14 



LOOP ON PRESENT TEST/<12><15> 
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016541 


105 


116 


124 


016544 


040 


124 


105 


016547 


123 


124 


012 


016552 


015 






3783 016553 


Oil 


061 


063 


016556 


Oil 


Oil 


Oil 


016561 


111 


116 


110 


016564 


111 


102 


111 


016567 


124 


040 


105 


016572 


122 


122 


117 


016575 


122 


040 


124 


016600 


131 


120 


105 


016603 


117 


125 


124 


016606 


123 


012 


015 


3784 016611 


Oil 


061 


062 


016614 
016617 


Oil 


A 4 4 

Oil 


A 4 4 

Oil 


4 AP 

105 


116 


4 A 4 

101 


016622 


102 


114 


4 AP 

105 


016625 


A ii A 

040 


4 O il 

124 


4 AC 

105 


016630 


4 A7 

123 


4 O A 

124 


A ii A 

040 


016633 


4 A il 

124 


4 O O 

122 


4 A 4 

101 


016636 


4 A7 

103 


4 4 4 

111 


4 4^ 

116 


A 4 f ^ il 4 

016641 


4 AT 

107 


A 4 O 

012 


A 4 P 

015 


3785 016644 


A 4 1 

Oil 


A£ 4 

061 


A£ 4 

061 


016647 


A 1 4 

Oil 


A 4 4 

Oil 


A 4 4 

Oil 


016652 


4 4 4 

111 


4 4^ 

116 


4 4 A 

110 


016655 


4 4 4 

111 


4 AO 

102 


4 4 4 

111 


016660 


124 


A il A 

040 


4 4 4 

111 


016663 


4 Oil 

124 


4 AC 

105 


4 OO 

122 


A 4 ee.ee 

016666 


4 A 4 

101 


4 O il 

124 


4 4 4 

111 


A 4 e e ^ A 

016671 


4 4 T 

117 


A A e 

116 


4 09 

123 


A 4 r e ^ A 

016674 


A 4 A 

012 


A 4 P 

015 




3786 016676 


A 4 4 

Oil 


e\e 4 

061 


f\e A 

060 


A 4 ^ 1 A 4 

016701 


A 4 4 

Oil 


A 4 4 

Oil 


A 4 4 

Oil 


A 4 ^ ^ A il 

016704 


4 AO 

102 


4 AC 

105 


114 


A 4 ^ T AT 

016707 


4 4 il 

114 


A il A 

040 


4 4 T 

117 


A 4 ^ T 4 ^ 

016712 


4 4^ 

116 


A il A 

040 


4 AP 

105 


A 4 ^ T 4 r 

016715 


4 A O 

122 


4 OO 

122 


4 4 T 

117 


A 4 £ T OA 

016720 


4 AO 

122 


A 4 O 

012 


A 4 P 

015 


3787 016723 


A 4 4 

Oil 


A il A 

040 


AT 4 

071 


A 4 ^ T '\e 

016726 


A 4 4 

Oil 


A 4 4 

Oil 


A 4 4 

Oil 


A 4 £ T 7 4 

016731 


4 4 il 

114 


4 4^ 

1'7 


4 4 *7 

117 


016734 


4 

120 


Ail A 

040 


4 4^ 

117 


Ai £ Tf7T 

016737 


4 4^ 

116 


A il A 

040 


4 AC 

105 


A 4 ^ T il 

016742 


4 OO 

122 


4 OO 

122 


4 4 T 

117 


A 4 £ T il C 

016745 


4 OO 

122 


A 4 O 

012 


A 4 P 

015 


7*700 A4^TCA 

3788 016750 


A 4 4 

Oil 


A il A 

040 


ATA 

070 


A 1 £ TC7 

016753 


A 4 4 

Oil 


A 4 4 

Oil 


A 4 4 

Oil 


016756 


4 4 Jl 

114 


4 4 T 

117 


4 4 T 

117 




1 Oft 




11 ' 


016764 


116 


040 


124 


016767 


105 


123 


124 


016772 


040 


111 


116 


016775 


040 


123 


127 


017000 


122 


074 


065 


017003 


055 


060 


076 


017006 


012 


015 





SEQ 0096 



.ASCII / 



13 



INHIBIT ERROR TYPE0UTS/<12><15> 



.ASCII / 



12 



ENABLE TEST TRACING/ < 12 ><15> 



.ASCII / 



11 



INHIBIT ITERATI0NS/<12><15> 



.ASCII / 



10 



BELL ON ERR0R/<12><15> 



.ASCII / 



LOOP ON ERR0R/<12><15> 



.ASCII / 



LOOP ON TEST IN SUR<5-0>/<12><15> 
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.ASCII / 7 



3789 017010 


Oil 


040 


067 


017013 


Oil 


Oil 


Oil 


017016 


111 


116 


110 


017021 


111 


102 


111 


017024 


124 


040 


124 


017027 


110 


105 


040 


017032 


103 


110 


105 


017035 


103 


113 


040 


017040 


120 


101 


122 


017043 


111 


124 


131 


017046 


040 


124 


105 


017051 


123 


124 


012 


017054 


015 






3790 017055 


Oil 


040 


066 


017060 


Oil 


Oil 


Oil 


017063 


116 


157 


164 


017066 


040 


165 


163 


017071 


145 


144 


012 


017074 


015 






> 3791 017075 


Oil 


065 


055 


017100 


060 


Oil 


Oil 


017103 


Oil 


123 


165 


017106 


142 


164 


145 


017111 


163 


164 


040 


017114 


156 


165 


155 


017117 


142 


145 


162 


017122 


040 


164 


157 


017125 


040 


154 


157 


017130 


157 


160 


040 


017133 


157 


156 


040 


017136 


050 


102 


111 


017141 


124 


040 


070 


017144 


051 


012 


012 


017147 


015 


000 




3792 








3793 017151 


102 


101 


123 EMI: 


017154 


111 


103 


040 


017157 


111 


116 


123 


017162 


124 


122 


125 


017165 


103 


124 


111 


017170 


117 


116 


040 


017173 


123 


105 


124 


017176 


040 


105 


122 


017201 


122 


117 


122 


017204 


000 






3794 017205 


115 


115 


125 EM2: 


017210 


040 


105 


122 


017213 


122 


117 


122 


017216 


000 






3795 017217 


106 


120 


120 EMi: 


017222 


040 


105 


122 


017225 


122 


117 


122 


017230 


000 






3796 017231 






EM51 


3797 017231 


103 


110 


105 EM54 


017234 


103 


113 


123 


017237 


125 


115 


040 



SEQ 0097 



INHIBIT THE CHECK PARITY TEST/<12><15> 



.ASCII / 



.ASCIZ / 



5-0 



Not used/<12><15> 



Subtest number to loop on (BIT 8)/<12><12><15 



.ASCIZ /BASIC INSTRUCTION SET ERROR/ 



.ASCIZ /MMU ERROR/ 
.ASCIZ /FPP ERROR/ 

, ASCIZ /CHECKSUM ERROR IN 16 BIT ROM / 
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017242 


105 


122 


122 


017245 


117 


122 


040 


017250 


111 


116 


040 


017253 


061 


066 


055 


017256 


102 


111 


124 


017261 


040 


122 


117 


017264 


115 


040 


000 


3798 017267 


124 


111 


115 


017272 


105 


117 


125 


017275 


124 


040 


122 


017300 


105 


101 


104 


017303 


111 


116 


107 


017306 


040 


114 


113 


017311 


123 


000 




3799 017313 


114 


113 


123 


017316 


074 


060 


067 


017321 


076 


040 


104 


017324 


117 


105 


123 


017327 


040 


116 


117 


017332 


124 


040 


102 


f\k 

017335 


4 AP 

105 


4 A9 

103 


117 


017340 


4 4 P 

115 


105 


A 4 A 

040 


017343 


061 


AAA 

000 




3800 017345 


111 


114 


114 


017350 


4 AP 

105 


4 AT 

107 


4 A 4 

101 


017353 


4 4 il 

114 


A il A 

040 


4 4 il 

114 


017356 


4 4 7 

113 


123 


A il A 

040 


A 4 f 4 

017361 


111 


116 


124 


A 4 ^7 ^ A 

017364 


4 AC 

105 


122 


122 


A 4 T7 ^ T 

017367 


4 AP 

125 


120 


124 


A 4 T 7 TN 

017372 


4 A9 

123 


000 




70A4 A4^'9^il 

3801 017374 


114 


4 4 9 

113 


4 A9 

123 


A 4 T7 

017377 


A il A 

040 


4 AA 

122 


4 AP 

105 


A 4 ^ A t\'\ 

017402 


4 A 4 

101 


4 A il 

104 


4 9 4 

131 


A 4 ^ il AP 

017405 


040 


104 


117 


A 4 ^ il 4 A 

017410 


4 AP 

105 


4 A7 

123 


116 


A 4 ^ il 4 7 

017413 


A in 

047 


4 A il 

124 


A il A 

040 


A4 ^il 4 t. 

017416 


4 AT 

107 


4 4 T 

117 


AAA 

040 


A 4 ^4^4 

017421 


4 4 il 

114 


117 


• AT 

127 


A 4 ^ J J 

017424 


AAA 

000 






3802 017425 


12/ 


4 AA 

122 


4 4 T 

117 


017430 


116 


4 A^ 

107 


A il A 

040 


77 

017433 


4 4 f 

116 


4 AP 

125 


4 4 C 

115 


A 4 ^4 7^ 

017436 


4 AA 

102 


4 AP 

105 


4 AA 

122 


A 4 ^ il il 4 

017441 


A il A 

040 


4 4 T 

117 


106 


A 4 ^ k A A 

017444 


A 4 A 

040 


4 4 4 

114 


4 4 7 

113 


A 4 ^ A 

017447 


4 

123 


A il A 

040 


4 4 4 

111 


A 4 ^ il C ^ 

017452 


116 


4 A A 

124 


4 AP 

105 


A 4 T J 

017455 


122 


122 


125 










017463 


000 






3803 017464 


114 


113 


123 


017467 


040 


111 


116 


017472 


124 


105 


122 


017475 


122 


125 


120 


017500 


124 


123 


040 


017503 


110 


101 


120 



.ASCIZ /TIMEOUT READING LKS/ 



.ASCIZ /LKS<07> DOES NOT BECOME 1/ 



.ASCIZ /ILLEGAL LKS INTERRUPTS/ 



.ASCIZ /LKS READY DOESN'T GO LOW/ 



.ASCIZ /URONG NUMBER OF LKS INTERRUPTS/ 



.ASCIZ /LKS INTERRUPTS HAPPEN AT URONG PRIORITY/ 
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017506 


120 


105 


116 


017511 


040 


101 


124 


017514 


040 


127 


122 


017517 


117 


116 


107 


017522 


040 


120 


122 


017525 


111 


117 


122 


017530 


111 


124 


131 


017533 


000 






3804 017534 


122 


105 


123 


017537 


105 


124 


040 


017542 


104 


117 


105 


017545 


123 


116 


047 


017550 


124 


040 


103 


017553 


114 


105 


101 


017556 


122 


040 


114 


017561 


113 


123 


074 


017564 


060 


066 


076 


017567 


000 






3805 017570 


124 


111 


115 


017573 


105 


117 


125 


017576 


124 


040 


122 


017601 


105 


101 


104 


017604 


111 


116 


107 


017607 


040 


123 


114 


017612 


125 


040 


122 


017615 


105 


107 


111 


017620 


123 


124 


105 


017623 


122 


123 


000 


3806 017626 


105 


122 


122 


017631 


117 


122 


040 


017634 


111 


116 


040 


017637 


130 


115 


111 


017642 


124 


040 


122 


017645 


105 


101 


104 


017650 


131 


000 




3807 017652 


122 


103 


123 


017655 


122 


074 


067 


017660 


076 


040 


104 


017663 


117 


105 


123 


017666 


116 


047 


124 


017671 


040 


102 


105 


017674 


103 


117 


115 


017677 


105 


040 


061 


017702 


000 






3808 017703 


127 


122 


117 


017706 


116 


107 


040 


017711 


103 


110 


101 


017714 


122 


101 


103 


017717 


124 


105 


122 


017722 


040 


122 


105 


017725 


103 


105 


111 


017730 


126 


105 


104 


017733 


000 






3809 017734 


122 


103 


123 


017737 


122 


074 


060 


017742 


067 


076 


040 


0] 7745 


116 


117 


124 



EM71; 



.ASCIZ /RESET DOESN'T CLEAR LKS<06>/ 



.ASCIZ /TIMEOUT READING SLU REGISTERS/ 



.ASCIZ /ERROR IN XMIT READY/ 



.ASCIZ /RCSR<7> DOESN'T BECOME 1/ 



.ASCIZ /WRONG CHARACTER RECEIVED/ 



.ASCIZ /RCSR<07> NOT CLEARED AFTER READING R8UF/ 



J8 
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017750 


040 


103 


114 




017753 


105 


101 


122 




017756 


105 


104 


040 




017761 


101 


106 


124 




017764 


105 


122 


040 




017767 


122 


105 


101 




017772 


104 


111 


116 




017775 


107 


040 


12? 




A A A A A A 

020000 


102 


125 


106 




020003 


000 








3810 020004 


130 


103 


4 \7 

123 


EM77: 


020007 


122 


074 


060 




020012 


A y T 

067 


A T < 

076 


A Jl A 

040 




A A A A « ^ 

020015 


116 


117 


124 




A ^ A A A A 

020020 


040 


123 


105 




020023 


124 


040 


117 




A A A A Ay 

020026 


4 t /* 

116 


040 


4 A A 

122 




A A A A '7 a 

020031 


4 AC 

105 


4 A7 

123 


4 AC 

105 




A A A A 7 il 

020034 


4 A 4 

124 


AAA 

000 






■ A'iAA7^ 

3811 0^0036 


122 


4 A? 

103 


4 A7 

123 


^fcj 4 A A 

EnlOO: 


020C41 


a A A 

122 


AT Jl 

074 


A /" A 

060 




020044 


A /• T 

067 


AT£ 

076 


A Jl A 

040 




AA h T 

020047 


116 


117 


4 '^Jl 

124 




A^ AA C ^ 

020052 


Ail A 

040 


1 AT 

103 


1 1 il 

114 




A A A C C 

020055 


4 AC 

105 


4 A 4 

101 


122 




A" AA£ A 

0<:0060 


1 AC 

105 


4 AJI 

104 


Ail A 

040 




A^AA^ 7 

020063 


4 4^ 

117 


116 


Ail A 

040 




020066 

A A A A T 4 

0<:0071 


4 AA 

122 


1 AC 

105 


4 AT 

123 




4 AC 

105 


4 AJI 

124 


AAA 

000 




A AAAA'^il 

3812 020074 


4 A7 

123 


4 4 Jl 

114 


4 AC 

125 


4 A 4 

En 101: 


A A AA 1 1 


A Jl A 

040 


4 4 4 

111 


116 




A A A 4 A A 

020102 


4 AJI 

124 


4 AC 

105 


4 AA 

122 




A A A 4 A P 

020105 


4 A A 

122 


4 AP 

125 


4 AA 

120 




A A A 4 4 A 

020110 


4 A A 

124 


4 A7 

123 


AAA 

040 




A A A 4 4 7 

020113 


1 1 A 

110 


1 A 1 

101 


120 




A A A 1 4 ^ 

020116 


4 AA 

120 


1 AC 

105 


4 4 f 

116 




A A A 4 A 4 

020121 


A Jl A 

040 


4 A4 

101 


4 AJI 

124 




A A A 4 A Jl 

020124 


A Jl A 

040 


A£ il 

064 


AAA 

000 




V047 AAA4A^ 

2813 020127 


1 AA 

122 


1 AC 

105 


4 "St 

123 


C%d 4 AO 

En 102 : 


AAA4 7A 

020132 


1 AC 

105 


4 AJI 

124 


Ail A 

040 




020135 


4 A Jl 

104 


4 1 T 

117 


4 AC 

105 




A A A 4 Jl A 

020140 


123 


Ail A 

040 


4 4 £ 

116 




020143 


4 4 

11/ 


124 


Ail A 

040 




A A A 4 Jl ^ 

020146 


4 AT 

103 


1 1 il 

114 


4 AC 

105 




AAA 4 C 1 

020151 


1 A1 

101 


l2d 


Ail A 




A A A 4 C Jl 

020154 


1 'Sa 

120 


122 


4 1 T 

117 




AAA « n 

020157 


\ OA 

120 


4 AC 

105 


122 




A A A « ^ A 

020162 


A Jl A 

040 


4 AA 

102 


4 4 4 

111 




AAA « £ C 

020165 


4 AJI 

124 


123 


Ail A 

040 




ftDAI 7ft 


1 1 1 

ill 


1 1 A 

llD 






020173 


123 


114 


125 




020176 


040 


122 


105 




020201 


107 


111 


123 




020204 


124 


105 


122 




020207 


123 


000 






3814 020211 


124 


122 


101 


Em03: 


020214 


116 


123 


115 





.ASCIZ /XCSR<07> NOT SET ON RESET/ 



.ASCIZ /RCSR<07> NOT CLEARED ON RESET/ 



.ASCIZ /SLU INTERRUPTS HAPPEN AT 4/ 



•ASCIZ /RESET DOES NOT CLEAR PROPER BITS IN SLU REGISTERS/ 



.ASCIZ /TRANSMIT INTERRUPT DOES NOT CLEAR XCSR<07>/ 
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020217 


111 


124 


040 


020222 


111 


116 


124 


020225 


105 


122 


122 


020230 


125 

Aba' 


120 


124 


020233 


040 


104 


117 


020236 


105 


123 


040 


020241 


116 


117 


124 


020244 


040 


103 


114 


020247 


105 


101 


122 


020252 


040 


130 


103 


020255 


123 


122 


074 


020260 


060 


067 


C76 


020263 
3815 020264 


000 






122 


105 


103 EM104: 


v20267 


105 


111 


126 


020272 


105 


040 


111 


020275 


116 


124 


105 


020300 


122 


122 


125 


020303 


120 


124 


123 


020306 


040 


104 


117 


020311 


116 


047 


124 


020314 


040 


103 


114 


020317 


105 


101 


122 


020322 


040 


122 


103 


020325 


123 


122 


074 


020330 


060 


067 


076 


020333 


000 






3816 020334 


102 


122 


105 E^1105: 


020337 


101 


113 


040 


020342 


103 


117 


116 


020345 


104 


111 


124 


020350 


111 


117 


116 


020353 


040 


104 


117 


020356 


105 


123 


040 


020361 


116 


117 


124 


020364 


040 


123 


105 


020367 


124 


040 


122 


020372 


102 


125 


106 


020375 


040 


120 


122 


020400 


117 


120 


105 


020403 


122 


114 


131 


020406 


000 






3817 020407 


122 


102 


125 EM106: 


020412 


106 


040 


074 


020415 


061 


065 


055 


020420 


061 


061 


076 


020423 


040 


127 


101 


020426 


123 


116 


047 


020431 


124 


040 


103 


020434 


114 


105 


101 


020437 


122 


105 
117 


104 


020442 


040 


116 


020445 


040 


116 


105 


020450 


130 


124 


040 


020453 


103 


110 


101 


020456 


122 


101 


103 


020461 


124 


105 


122 



.ASCIZ /RECEIVE INTERRUPTS DON'T CLEAR RCSR<07>/ 



.ASCIZ /BREAK CONDITION DOES NOT SET RBUF PROPERLY/ 



.ASCIZ /RBUF <15-11> WASN'T CLEARED ON NEXT CHARACTER/ 



-J 
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020464 


000 






3818 020465 


123 


114 


125 


020470 


040 


111 

A A X 


116 

X X w 


020473 


124 


105 


122 


020476 


122 


125 


120 


020501 


124 


123 


040 


020504 


104 


117 


116 


020507 


047 


124 


040 


020512 


110 


101 


120 


020515 


120 


105 


116 


020520 


000 






3819 020521 


105 


122 


122 


020524 


117 


122 


040 


020527 


111 


116 


040 


020532 


127 


122 


111 


020535 


124 


111 


116 


020540 


107 


040 


124 


020543 


117 


040 


123 


020546 


114 


125 


040 


020551 


122 


105 


107 


020554 


111 


123 


124 


020557 


105 


122 


123 


020562 


000 






3820 020563 


106 


111 


122 


020566 


123 


124 


040 


020571 


103 


110 


101 


020574 


i22 


101 


103 


020577 


124 


105 


122 


020602 


040 


127 


101 


020605 


123 


040 


116 


020610 


117 


124 


04C 


020613 


n7 


126 


105 


020616 


ill 


122 


125 


020621 


116 


040 


102 


020624 


131 


040 


124 


020627 


UO 


105 


040 


020632 


123 


105 


103 


020635 


117 


U6 


104 


020640 


OCO 






3821 020641 


117 


126 


105 


020644 


122 


122 


125 


020647 


116 


040 


103 


020652 


117 


116 


104 


020655 


111 


124 


111 


020660 


117 


116 


040 


020663 


104 


117 


105 


020666 


123 


040 


116 


020671 


117 


124 


040 


020674 


123 


105 


124 


020677 


040 


120 


122 


020702 


117 


120 


105 


020705 


122 


040 


102 


020710 


111 


124 


123 


020713 


040 


111 


116 


020716 


040 


122 


102 


020721 


125 


106 


000 


3822 020724 


117 


126 


105 
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.ASCIZ /SLU INTERRUPTS DON'T HAPPEN/ 



SEQ 01C2 



.ASCIZ /ERROR IN WRITING TO SLU REGISTERS/ 



.ASCIZ /FIRST CHARACTER WAS NOT OVERRUN BY THE SECOND/ 



.ASCIZ /OVtRRUN CONDITION DOES NOT SET PROPER BITS IN RB'iF/ 



.ASCIZ /OVERRJN BITS WERE NOT CLEARED ON THE NEXT CHARACTER/ 



M8 
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SEQ 0103 



020727 


122 


122 


125 


020732 


116 


040 


102 


020735 


111 


124 


123 


020740 


040 


127 


105 


020743 


122 


105 


040 


020746 


116 


117 


124 


020751 


040 


103 


114 


020754 


105 


101 


12? 


020757 


105 


104 


040 


020762 


117 


116 


040 


020765 


124 


110 


105 


020770 


040 


116 


105 


020773 


130 


124 


040 


020776 


103 


110 


101 


021001 


122 


101 


103 


021004 


124 


105 


122 


021007 


000 






3823 021010 


105 


122 


122 


021013 


117 


122 


040 


021016 


117 


116 


040 


021021 


130 


103 


123 


021024 


122 


074 


062 


021027 


C76 


000 




3824 021031 


105 


122 


122 


021034 
0:i037 


117 


122 


040 


111 


il6 


040 


021042 


121 


062 


062 


021045 


102 


105 


040 


021050 


104 


115 


101 


021053 


040 


103 


131 


021056 


103 


114 


105 


021061 


123 


000 




3325 021063 


120 


111 


122 


021066 


121 


040 


111 


0210^1 


116 


124 


105 


021074 


122 


122 


125 


021077 


120 


124 


123 


021102 


040 


104 


117 


021105 


116 


047 


124 


021110 


040 


124 


101 


021113 


113 


105 


040 


021116 


120 


122 


111 


0^^1121 


117 


122 


111 


021124 


124 


131 


040 


021127 


117 


126 


105 


021132 


122 


040 


121 


021135 


040 


102 


125 


021140 


123 


040 


111 


021143 


116 


124 


105 


021146 


122 


122 


125 


021151 


120 


124 


123 


021154 


000 






3826 021155 


116 


117 


040 


021160 


120 


117 


127 


021163 


105 


122 


040 


021166 


104 


117 


127 


021171 


116 


040 


124 



.ASCIZ \ERROR ON XCSR<2>\ 



.ASCIZ /ERROR IN Q22BE DMA CYCLES/ 



.ASCIZ /PIRO INTERRUPTS DON'T TAKE PRIORITY OVER Q BUS INTERRUPTS/ 



.ASCIZ /NO POUER DOUN TRAP TO 24 OCCUR/ 



N8 
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021174 


122 


101 


120 


021177 


040 


124 


117 


021202 


040 


062 


064 


021205 


040 


117 


103 


021210 


103 


125 


122 


021213 


000 






^827 021214 


105 


122 


122 


021217 


117 


122 


040 


021222 


104 


117 


111 


021225 


116 


107 


040 


021230 


121 


062 


062 


021233 


102 


105 


040 


021236 


111 


116 


124 


021241 


105 


122 


122 


021244 


125 


120 


124 


021247 


123 


000 




3828 021251 


105 


122 


122 


021254 


117 


122 


040 


021257 


111 


116 


040 


021262 


117 


120 


105 


021265 


122 


101 


124 


021270 


111 


117 


116 


021273 


040 


117 


106 


021276 


040 


120 


115 


021301 


107 


040 


103 


021304 


117 


125 


116 


021307 


124 


105 


122 


021312 


000 






3829 021313 


125 


116 


105 


021316 


130 


120 


105 


021321 


103 


124 


105 


021324 


104 


040 


124 


021327 


122 


101 


120 


021332 


040 


124 


117 


021335 


040 


064 


000 


3830 021340 


105 


122 


122 


021343 


117 


122 


040 


021346 


127 


122 


111 


021351 


124 


111 


116 


021354 


107 


040 


124 


021357 


11^ 


040 


114 


021362 


113 


123 


074 


021365 


066 


076 


000 


5831 021370 


105 


122 


122 


021373 


117 


122 


040 


021376 


111 


116 


040 


021401 


115 


101 


111 


021404 


116 


124 


105 


021407 


116 


101 


116 


021412 


103 


105 


040 


021415 


122 


105 


107 


021420 


111 


123 


124 


021423 


105 


122 


000 


3832 021426 


105 


122 


122 


021431 


117 


122 


040 


021434 


111 


116 


040 


021437 


124 


110 


105 



.ASCIZ /ERROR DOING Q22BE INTERRUPTS/ 



.ASCIZ /ERROR IN OPERATION OF PMG COUNTER/ 



■ASCIZ /UNEXPECTED TRAP TO 4/ 



.ASCIZ /ERROR URITING TO LKS<6>/ 



.ASCIZ /ERROR IN MAINTENANCE REGISTER/ 



.ASCIZ /ERROR IN THE MEMORY DATA PATH/ 



COKDDAO i^OJll-OA CLUSTER OIAG. MACRO V05.03 Tuesday 07-Jan-86 15:18 Page 36 10 
GLOBAL ERROR MESSAGES 



SEQ 0105 



021442 


040 


115 


105 


021445 


115 


117 


122 


021450 


131 


040 


104 


021453 


101 


124 


101 


021456 


040 


120 


101 


021461 


124 


110 


000 


3833 021464 


124 


111 


115 EM136: 


021467 


105 


104 


040 


021472 


117 


125 


124 


021475 


340 


111 


116 


021500 


040 


101 


103 


021503 


103 


105 


123 


021506 


123 


111 


116 


021511 


107 


040 


114 


021514 


117 


103 


101 


021517 


124 


111 


117 


021522 


116 


040 


060 


021525 


000 




115 EM137: 


383^ 021526 


124 


111 


02153' 


105 


104 


040 


021534 


117 


125 


124 


021537 


040 


111 


116 


021542 


040 


124 


122 


021545 


131 


111 


116 


021550 


107 


040 


124 


021553 


117 


040 


101 


021556 


103 


103 


105 


021561 


123 


123 


040 


021564 


115 


105 


115 


021567 


117 


122 


131 


021572 


000 






3S35 021573 


105 


122 


122 EM140: 


021576 


117 


122 


040 


021601 


111 


116 


040 


021604 


106 


125 


116 


0216C7 


103 


124 


111 


021612 


117 


116 


101 


021615 
021620 


114 


040 


122 


105 


126 


111 


021623 


123 


111 


117 


021626 


116 


040 


102 


021631 


ill 


124 


123 


021634 


040 


117 


116 


021637 


040 


124 


110 


021642 


105 


040 


116 


021645 


101 


124 


111 


021650 


126 


105 


040 


021653 


122 


105 


107 


021656 


111 


123 


124 


021661 


105 


122 


000 


3836 021664 


105 


122 


122 Eril41: 


021667 


117 


122 


C40 


021672 


111 


116 


040 


021675 


124 


110 


105 


021700 


040 


111 


116 


021703 


104 


111 


103 


02^06 


101 


124 


117 



.ASCIZ /TIMED OJT IN ACCESSING LOCATION 0/ 



.ASCIZ /TIMED OUT IN TRYING TO ACCESS MEMORY/ 



.ASCIZ /ERROR IN FUNCTIONAL REVISION BITS ON THE NATIVE REGISTER/ 



.ASCIZ /ERROR IN THE INDICATOR BITS O" THE NATIVE REGISTER/ 



COKOOAO "OJll-DA CLUSTER OIAG. HACRO V05.03 Tuesday 07-jan-86 15:18 Page 38-11 
GLOBA^ ERROR MESSAGES 



SEQ 0106 



Vc I'll 


ice 


^^40 

v*»U 


10P 
1 vc 


1 7 1 A 


1 ' 1 


1 P4 


IP? 
ico 


n?i 71 7 

vc I'll 


040 
vHU 


1 1 7 
11' 


1 1ft 

1 ID 


ft?1 7P3 


040 

VHV 


1 P4 

1C*» 


1 10 
1 IV 


0P1 7?S 


1 O'i 


040 
v*»v 


1 1(> 

1 IP 


n?i 7<n 


1 01 


1 P4 

IcH 


1 1 1 

111 


0P1 7^? 


1 y(t 
icO 


1 0^ 


040 

VHV 


ft?1 7^A 


1 PP 
ice 


10S 

IV J 


107 

IV ' 


051741 


1 1 1 

111 


IP? 

IC J 


1P4 

1C~ 


nPI 744 


lO"? 
1 v^ 


1PP 

ICC 


000 

V w 


0P1747 


10*> 

IV J 


IPP 

ICC 


IPP 

ICC 


0P1 7'ip 

vc 1 ( JC 


1 17 
1 1 f 


IP? 

ICC 


040 

V"tV 


vc 1 f J J 


1 1 1 
1*1 


1 16 

1 Iv 


040 
v*tv 


vC 1 ) vV 


1P4 
Ic** 


1 10 

1 IV 


105 

XV J 


0P1 ■'feS 

vC 1 V J 


040 

V"fV 


lOP 

A vc 


117 

X A f 


OP 1 1dfi 

\JC 1 i vv 


1 1 7 
1 1 1 


1P4 
ic** 


040 

V"tV 


OP1771 

vc I'll 


1P^ 
icu 


105 

IV J 


1 14 
11"* 


0P1774 
Vc 111** 


1 VJ 


loi 

X V^ 


1P4 

IC" 


0P1777 

Vc I'll 


040 

V*f V 


123 

XC ^ 


127 

XC ' 


OPPOOP 

VcCWC 


1 1 1 

111 


1P4 

XC^ 


103 

X Vw 


022005 


1 10 

A AV 


105 

A V ^ 


123 

XC V 


OP 50 10 

VCCVIV 


040 

V~V 


117 

A A < 


116 

X XV 


022013 


040 

V^ V 


124 

XC~ 


110 

X XV 


0PP016 


105 


040 


116 

X XV 


022021 


101 

A V A 


124 


111 

XXX 


0PP0P4 


126 

AC V 


105 

A V^ 


040 

V~V 


0PP0P7 


IP? 

ACC 


105 

A V*J 


107 

XV < 


0PP03? 

VC c v^c 

0PP035 

VC C v^tJ 


111 

A AA 


123 


124 


105 


122 


000 


3838 0P7040 

vc C 7"tw 


1P4 

AC~ 


111 

AAA 


115 

X X 


105 


104 

A V^ 


040 

V~ V 


VCC V"tV 


117 

A A ' 


IPS 

AC -/ 


124 

xc~ 


022051 


040 

V~V 


111 

XXX 


116 

X XV 


0220S4 

VCCV^^ 


040 

V~V 


101 

X VX 


103 


0PPO57 

vccv J • 


103 

A VV 


105 

X V*J 


123 

XC w 


OPPOfe? 

VCCWC 


1P3 

AC ^ 


040 

V~ V 


124 

XC^ 


022065 

VC c w*^ 


117 

A X f 


040 


124 


0PP070 

VCCV 1 V 


110 

AAV 


105 


040 

V ~ V 


0PP073 

VC C V 1 ^ 


116 

1 AU 


101 

X V X 


124 

X b~ 


0PP076 

VC C V ' V 


111 

AAA 


126 

i. CU 


105 

X V J 




040 

v~v 


IPP 

X CC 


105 

X V^ 


0PP104 

VC C A V^ 


107 

AV < 


111 

XXX 


123 

XC w 


0PP107 

VC C A V 1 


124 

A C~ 


105 

X Vn/ 


122 

xcc 


OPPl IP 

VCC X AC 


000 

wv 






3859 OPPl 13 

wvJ7 VCCXAV 


lOP 

A vc 


111 

XXX 


124 

xc~ 


OPPl 16 

VCC AAV 


040 

v~ v 


067 


040 


02P1P1 

VCC AC A 


111 

AAA 


116 

X xu 


040 


0PP1P4 

VCC AC~ 


114 

A A~ 


124 

X c~ 


103 

X w 


02212"' 

VCC AC 


040 

v~v 


111 

XXX 


123 

Xb V 


022132 


040 


116 


117 


022135 


124 


040 


124 


022140 


117 


107 


107 


022143 


114 


111 


116 


022146 


107 


040 


102 


022151 


105 


124 


127 


022154 


105 


105 


116 


022157 


040 


060 


040 



.ASCIZ /ERROR IN THE BOOT SELECT SUITCHES ON THE NATIVE REGISTER/ 



.ASCIZ /TIMED OUT IN ACCESS TO THE NATIVE REGISTER/ 



.ASCIZ /BIT 7 IN LTC IS NOT TOGGLING BETUEEN 0 AND 1/ 



COKOOAO KOJll-DA CLUSTER DIAG. '•ACRO V05.03 Tuesday 07-Jan-86 15:18 Page 38 12 



GLOBAL ERROR MESSAGES 



SEQ 0107 





101 


116 


4 Ait 

104 


0^2165 


Ail A 

040 


Obi 


AAA 

000 


7QilA AOOI 


Id'* 


111 

111 


lie 

115 


Otdl IS 


1 AC 

105 


117 

117 


125 


Occl lb 


124 


Ail A 

040 


111 

111 


UcccOl 


lit 
lib 


Ail A 

040 


1 A1 

101 




1 A7 

103 


1 A7 

103 


1 AC 

105 


022207 


123 


1 07 

123 


111 

111 


022212 


lib 


1 A7 

107 


A il A 

040 


0222x3 


124 


1 1 A 

110 


1 AC 

105 


022220 


AilA 

040 


11/1 

114 


117 

113 


022223 


1 07 

123 


Ail A 

040 


1 00 

122 


02222b 


1 AC 

105 


1 A"7 
10/ 


111 

111 


022201 


1 07 

123 


1 OA 

124 


1 AC 

103 


022234 


122 


AAA 
000 






103 


1 00 

122 


1 00 

122 


022241 


1 1 7 

III 


1 00 

122 


AAA 
040 


022244 


111 

111 


lit 
lib 


AAA 
040 


yjcdd'* I 


1 j7 

123 


1 OA 

124 


1 OC 

12j 


yjdddod 


1 A7 

103 


117 

113 


AAA 
040 


022255 


1 ni 
101 


1 OA 

124 


AAA 
040 


022200 


1 70 

132 


1 AC 

10!) 


1 00 
122 


02c:203 


117 

11 / 


AAA 
040 


1 AO 

102 


022200 


111 
111 


1 OA 

124 


1 07 

123 


02c:2 '1 


AAA 
040 


1 1 7 

11 ' 


1 1 £. 
110 


Of^cc (4 


AAA 


1 1 C 

11 J 


1 AC 
103 


0222 1 1 


1 00 
Idd 


AAA 
000 




304^ Occ30i 
0cc304 


1 A7 

103 


117 

11 / 


1 OC 

123 


1 1 A 
114 


1 AA 
104 


AAA 
040 


Occ30 / 


1 1A 

lib 


1 1 7 

11 ' 


1 OA 
124 


022312 


AAA 

040 


1 07 

123 


1 AC 

103 


02231 J 


1 OA 
124 


AAA 
U4U 


117 

11 / 


022320 


1 1 A 

lib 


1 AC 

105 


AAA 

040 


A007 07 

022323 


117 

11 ; 


1 At 

10b 


AAA 
040 


Uddidb 


1 OA 

124 


1 1 A 

110 


1 AC 

103 


Occ331 


AAA 
040 


1 00 

122 


AC7 

03 / 


Occ 3 34 


1 07 
12 ( 


AAA 
040 


1 AO 

102 


rt00777 
Occ33 1 


111 

111 


1 OA 

124 


1 07 

123 


022342 


AAA 
040 


117 

11 / 


lit 
lib 


0cc34j 


AAA 
040 


1 OA 

124 


1 1 A 
110 


A0T7CA 


1 AC 

10 J 


AAA 
040 


lie 

113 


U223 j3 


1 AC 

IOj 


1 00 

122 


AAA 
000 


j043 Ot:t:3jO 


1 no 
102 


111 

111 


1 OA 
124 


riD57A1 
U£:c30i 


1 3 < 
123 


v4U 


000 


vcc jOH 


0 j4 


00c 


034 


n307fc7 
Ucc30 ( 


001 


004 


034 


0£e3 /2 


001 


n<kc 

OOj 


AAA 
040 


ft0077^ 
Ucc3 Ij 


I 1 7 

II / 


1 It 

lib 


AAA 
040 


Ucc4U0 


1 OA 
124 


1 1 A 
110 


1 AC 

103 


VC C~ ViJ 


040 


1 IS 


1 V J 


022406 


122 


040 


104 


022411 


111 


104 


040 


022414 


116 


ir 


124 


022417 


040 


103 


114 


022422 


105 


101 


122 


022425 


040 


117 


116 


022430 


040 


122 


105 



.ASCIZ /TIMEOUT IN ACCESSING THE LKS REGISTER/ 



.ASCIZ /ERROR IN STUCK AT ZERO BITS ON MER/ 



.ASCIZ \COULD NOT SET ONE OF THE R/W BITS ON THE MER\ 



.ASCIZ /BITS 0.2.14.15 ON THE MER DID NOT CLEAR ON RESET/ 



COKOOAO KD.ll-OA CLUSTEP DWG. 
GLOBAL ERROR MESSAGES 



022433 


123 


1 ACT 

105 


4 

124 


022436 


AAA 

000 




3844 022437 


124 


4 4 4 

111 


4 4 C 

115 


022442 


f AC 

105 


117 


125 


022445 


124 


Ail A 

040 


4 14 

111 


Ucc4d0 


116 


Ail A 

040 


1 A1 

101 


u!;^433 


1 A7 

103 


1 A7 

103 


1 AC 

IOd 


An TJI 


123 


1 07 

123 


111 




116 


1 A7 

1C7 


Ail A 

040 


U2c4o4 


1 Oil 
124 


1 f A 

110 


1 AC 

103 




AJI A 

040 


lie 

ll3 


1 AC 

103 
* oo 

i22 


A*^ Oil 70 


1 oo 

122 


Ail A 

040 


A J Oil 7C 


1 AC 

IOj 


1 A7 

107 


111 
111 




123 


1 Oil 

124 


1 AC 

103 


U^^303 


1 oo 
12c 


AAA 
000 




7 SAC AOOCAQ 

3043 02cj0j 


1 AC 
103 


1 00 

led 


1 oo 
122 


AOOQ 1 A 


117 

11 ' 


1 oo 
Icc 


AAA 
040 




111 
111 


lie 

lib 


AAA 
040 


Uec Jib 


1 OA 
Id'* 


1 1 A 
110 


1 AC 

103 




U4U 


1 AA 
104 


1 A1 

101 


U^<:3c4 


1 OA 

lc4 


1 A1 
101 


AAA 

040 


Ucc jc ' 


1 37 

lc3 


1 1 A 
IIU 


I 1 7 

II / 




1 33 
ice 


1 3A 


1 37 

lc3 




AAA 


1 A1 
iUl 


1 1 & 

lib 


Ucc j4U 


1 Ail 


AAA 


1 37 

lc3 




1 3A 

lc'» 


1 3^ 
lc3 


1 A7 
103 




1 1 7 


AAA 


1 A1 
101 




1 3A 
Id'* 


AAA 


1 1 C 

113 




1 AC 
iU3 


1 1 C 
113 


117 

11 ' 


U^c33 f 


Icc 


171 

131 


AAA 
040 


A33lt&3 


1 3A 

lc4 


1 AC 

103 


1 37 

Ico 




1 3A 

lc4 


AAA 

000 




3040 yjddjbl 


1 OA 

IcU 


1 A1 

101 


1 OO 

let 


KJddj Id 


111 

ill 


1 OA 
lc4 


1 71 

131 


\iddj I J 


AAA 


1 A1 

101 


1 A3 

lOc 




1 1 7 
ill 


1 30 

Icc 


1 3A 

lc4 




AAA 


I 1 7 

II ' 


1 A7 
103 


A33<^A<L 


1 A7 


1 3C 
lc3 


1 33 

Icc 


vddOlL 


1 AC 
1U3 


1 AA 


AAA 
040 


Ucc0l4 


1 37 
Ic ' 


111 

111 


1 3A 

lc4 


A00<L1 7 


1 1 A 
IIU 


AAA 

040 


1 3A 

IcO 


AOOtDO 


1 A1 
lUl 


1 33 

Icc 


111 

111 


AOOfcOQ 
UccOc J 


1 OA 
lc4 


1 71 

121 


AAA 

040 


A33&7A 


1 AC 
1U3 


1 33 

Icc 


1 33 

Icc 


A33&77 
Uec033 


117 

11 1 


1 33 

Icc 


AAA 
040 


noot7t 
U<:cD3b 


1 AA 
1U4 


111 

111 


1 37 

lc3 


A3D<L41 
Ucc041 


1 A1 
lUl 


1 A3 

lOc 


1 1 A 
114 


A30<L4A 
UCC04** 


1 AC 
1U3 


1 AA 
10«> 


AAA 
000 


3847 022647 


1 OA 

IcU 


1 A1 
101 


1 00 

Icc 




1 1 1 

111 


1 ?4 
ICH 




022655 


040 


101 


102 


022660 


117 


122 


124 


022663 


040 


104 


111 


022666 


104 


040 


116 


022671 


117 


124 


040 


022674 
022677 


117 


103 


103 


125 


122 


040 



f*aCRO V05.C? Tuesday 07-Jan-86 15:18 Page 38-13 



.ASCIZ /TIMEOUT IN ACCESSING THE MER REGISTER/ 



SEQ 01C8 



.ASCIZ /ERROR IN THE DATA SHORTS AND STUCK AT MEMORY TEST/ 



.ASCIZ /PARITY ABORT OCCURED WITH PARITY ERROR DISABLED/ 



•ASCIZ /PARITY ABORT DID NOT OCCUR UITH PARITY ERROR ENABLED/ 



COi'DOAO KDJll-DA CLUSTER DIAG. 
GLOBAL ERROR MESSAGES 



MACRO V05.03 Tuesday 07 -Jan -86 15:18 Page 38-14 



SEQ 0109 



/V A ^ ^ A ^ 

022702 


127 


111 


124 


022705 




LIO 


040 


120 


022710 




01 


122 


111 


022713 




24 


131 


040 


022''16 




.05 


122 


122 


022721 




.17 


122 


040 


022724 




L05 


116 


101 


02272^ 




L02 


114 


105 


022732 




.04 


000 




3848 022734 




.15 


4 AP 

105 


122 EM155: 


022737 


040 


104 


111 


022742 


104 


116 


A A ^ 

047 


022745 


124 


AAA 

040 


4 ■ A 

110 


022750 


4 A 4 

101 


126 


105 


022753 


A il A 

040 


4 A7 

103 


4 4^ 

117 


A*^ ^^Cf 

022756 


122 


122 


4 AC 

105 


022761 


4 A7 

103 


4 il 

124 


A il A 

040 


A'^ '^T^ A 

022764 


4 A 4 

101 


4 A Jl 

104 


4 A il 

104 


022767 


4 

122 


4 AC 

105 


123 


022772 


123 


A il A 

040 


4 A^ 

102 


A^ '^T 

022775 


4 4 4 

111 


4 ^il 

124 


4 

123 


023000 


A il A 

040 


A^ 4 

061 


Af 4 

061 


A*^ 7AA7 

023003 


ACC 

Obb 


Af 4 

061 


A/* T 

067 


A'^T AA£ 

023006 


AAA 

000 






3849 023007 


lie 

115 


1 AC 

10b 


4 '^'^ CM 4 C£ 

122 Enl56: 


023012 


Ail A 

040 


122 


4 AC 

105 


023015 


1 A1 

101 


4 Ail 

104 


Ail A 

040 


023020 


1 AC 

105 


1 7A 

130 


4 '>il 

124 


0i:3023 


1 AC 

105 


1 4 £ 

116 


4 Ail 

104 


A'^ 7A'^£. 

023026 


1 AC 

105 


1 Ail 

104 


Ail A 

040 


023031 


1 A4 

101 


4 Ail 

104 


4 Ail 

104 


A'^ 7 A 74 

023034 


4 

122 


4 AP 

105 


123 


023037 


123 


A Jl A 

040 


4 A'^ 

102 


023042 


111 

111 


4 '^il 

124 


4 '^7 

123 


A^ 7Ail C 

0£:3045 


Ail A 

040 


1 1 A 

110 


4 A 4 

101 


023050 


1 07 

123 


Ail A 

040 


4 Af 

106 


A'^T ACT 

023053 


1 A 1 

101 


4 4 4 

111 


4 4 il 

114 


A'^T AC£ 

023056 


1 AC 

105 


4 Ail 

104 


A A A 

000 


7QCA A07A£ 1 

3850 023061 


1 AC 

105 


122 


122 Enl57: 


A'>7A£il 

023064 


1 17 


122 


Ail A 

040 


A'^T A£ 1 

023067 


111 


116 


Ail A 

040 


023072 


124 


4 4 A 

110 


4 AC 

105 


023075 


040 


121 


4 

125 


AO 7 1 AA 

023100 


111 


1 A7 

103 


4 4 7 

113 


A17 1 A7 

023103 


040 


126 


4 AC 

105 


AO 71 A£ 

023106 


122 


114 

111 


1 A£ 

106 


A07 111 

023111 


131 


Ail A 

040 


lie 

115 


A07 1 1 A 

023114 


105 


4 4 C 

115 


14^ 

117 


025117 


122 


4 7 4 

131 


A il A 

040 


124 






023125 


124 


000 




3851 023127 


105 


122 


12? EM160: 


023132 


117 


122 


040 


023135 


111 


116 


040 


023140 


122 


103 


123 


023143 


122 


040 


074 


023146 


066 


076 


000 



.ASCIZ /HER DIDN'T HAVE CORRECT ADDRESS BITS 11-17/ 



.ASCIZ /MER READ EXTENDED ADDRESS BITS HAS FAILED/ 



.ASCIZ /ERROR IN THE QUICK VERIFY MEMORY TEST/ 



.ASCIZ /ERROR IN RCSR <6>/ 



u 



9 
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GLOBAL ERROR MESSAGES 



SEQ 0110 



3852 023151 


116 


117 


040 


023154 


130 


115 


111 


023157 


124 


040 


111 


023162 


116 


124 


105 


023165 


122 


122 


125 


023170 


120 


124 


123 


023173 


040 


110 


101 


023176 


126 


105 


040 


023201 


117 


103 


103 


023204 


125 


122 


105 


023207 


104 


000 




3853 023211 


116 


117 


040 


023214 


122 


105 


103 


023217 


lU 


105 


126 


023222 


105 


040 


111 


023225 


116 


124 


105 


023230 


122 


122 


125 


023233 


120 


124 


123 


023236 


040 


110 


101 


023241 


126 


105 


040 


023244 


117 


103 


103 


023247 


125 


122 


105 


023252 


104 


000 




3854 023254 


125 


116 


105 


023257 


130 


120 


105 


023262 


103 


124 


105 


023265 


104 


040 


120 


023270 


101 


122 


111 


023273 


124 


131 


040 


023276 


101 


102 


117 


023301 


122 


124 


040 


023304 


110 


101 


123 


023307 


040 


117 


103 


023312 


103 


125 


122 


023315 


105 


104 


000 


3855 023320 


115 


105 


122 


023323 


040 


104 


111 


023326 


104 


116 


047 


023331 


124 


040 


110 


023334 


101 


126 


105 


023337 


040 


103 


117 


023342 


122 


122 


105 


023345 


103 


124 


040 


023350 


101 


104 


104 


023353 


122 


105 


123 


023356 


123 


040 


102 


023361 


111 


124 


123 


023364 


043 


040 


060 


023367 


040 


101 


116 


023372 


104 


040 


061 


023375 


065 


000 




3856 023377 


124 


117 


117 


023402 


040 


115 


101 


023405 


lib 


131 


040 


023410 


124 


122 


101 


023413 


116 


123 


111 


023416 


126 


105 


122 



.ASCIZ /NO XMIT INTERRUPTS HAVE OCCURED/ 



.ASCIZ /NO RECIEVE INTERRUPTS HAVE OCCURED/ 



.ASCIZ /UNEXPECTED PARITY ABORT HAS OCCURED/ 



.ASCIZ /MER DIDN'T HAVE CORRECT ADDRESS BITS* 0 AND 15/ 



.ASCIZ /TOO MANY TRANSIVER INTERRUPTS HAPPENED/ 
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jLOBal error hessages 



SEQ 0111 



023421 


040 


111 


116 




023424 


124 


105 


122 




023427 


122 


125 


120 




023432 


124 


123 


040 




023435 


110 


101 


120 




023440 


120 


105 


116 




023443 


105 


104 


000 




3857 023446 


124 


117 


117 


EM166: 


023451 


040 


115 


101 




023454 


116 


131 


040 




023457 


12*: 


105 


103 




023462 


105 


111 


126 




023465 


105 


122 


040 




023470 


111 


116 


124 




023473 


1C5 


122 


122 




023476 
023501 


125 


120 


124 




123 


040 


110 




023504 


101 


120 


120 




023507 


105 


116 


105 




023512 


104 


000 






3858 










3859 023514 


040 


124 


105 


DHl: 


023517 


123 


124 


Oil 




023522 


105 


122 


122 




023525 


117 


122 


015 




023530 


012 








3860 023531 


040 


040 


043 




023534 


Oil 


040 


120 




023537 


103 


000 






3861 023541 


040 


124 


105 


DH4: 


023544 


123 


124 


Oil 




023547 


105 


122 


122 




023552 
023555 


117 


122 


Oil 




105 


130 


120 




023560 


103 


124 


105 




023563 


104 


Oil 


122 




023566 


105 


103 


105 




023571 


111 


126 


105 




023574 


104 


015 


C12 




3862 023577 


040 


040 


043 




023602 


Oil 


040 


120 




023605 


103 


Oil 


040 




023610 


104 


101 


124 




023613 


101 


040 


040 




023616 


O'O 


040 


040 




023621 


104 


101 


124 




023624 


101 


000 






3863 023626 


040 


124 


105 


DH5: 


023631 


123 


124 


Oil 




023634 


105 


122 


122 




023637 


117 


12? 


Oil 




023642 


110 


Ill 


124 




023645 


115 


111 


123 




023650 


Oil 


104 


101 




023653 


124 


101 


040 




023656 


111 


116 


Oil 




023661 


104 


101 


124 





.ASCIZ /TOO MANY RECEIVER INTERRUPTS HAPPENED/ 



.ASCII / TEST ERR0R/<15><12> 



.ASCIZ / # PC/ 



.ASCII / TEST ERROR EXPCTEO RECEIVED/<15><12> 



.ASCIZ / * PC DATA DATA/ 



.ASCII / TEST ERROR HITMIS DATA IN DATA IN/<15><12> 
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GLOBAL ERROR MESSAGES 



<Jc OOOH 






1 1 1 
ill 




Uc 000 ( 


1X0 


01 "J 
Ui J 


r>i ? 
Uic 




OODH UcOO 1 t 






(147 
UHO 




1 J 


ftl 1 


040 


1 PO 

icU 






lUO 


Uil 










1 o^? 

iUO 


1 07 
iU 1 






U jO 


01 1 
Uii 


1 07 
iUO 




ft5771 1 


1 01 


1 07 
iUO 


1 1 0 






1 ft(\ 


01 1 
Uii 


1 I^N 

iiO 




flP771 7 


1 0*\ 


1 1 R 
ii J 


1 1 7 
ii 1 




flP773? 


1 pp 


1 '1 
i>;i 


000 




f)P77PS 
JOO J vc 0 1 CJ 


040 


1 P4 
ict 


1 0'? 


OH?' 




1 P7 

icO 


1 P4 
ict 


01 1 

Uii 






iU J 


1 P? 
icc 


1 PP 
icc 




uc J 1 00 


1 1 7 
ii 1 


1 PP 
icc 


01 1 

U Li 




UCO 1 Hi 


1 01 

iUi 


1 04 
iut 


1 04 

iUt 






1 PP 
icc 


1 0"; 


IP'^ 
xco 




ftp ^747 


1 P7 
ico 


01 1 

vXX 


1 15 

XX J 




0P77SP 


1 P7 
ico 


105 

Xv J 


1 PP 

icC 






vX J 


01? 

vXC 








040 


040 


043 






01 1 
vXi 


040 


IPO 

XCv 








oil 

V/ X X 


101 

X vx 




0P3770 


103 


103 


105 

XV J 




0P3773 


1P3 


1?3 

XC V 


105 

X V^ 




0?^77fi 




000 






3867 0P4000 


040 


1?4 


105 

X V^ 


DH?4- 




1 P7 


1 ?4 

XCH 


01 1 

VXX 




0?400fi 




1?? 
XCC 


1PP 

xcc 




0P401 1 


1 17 

X X 1 


1?? 

xcc 


01 1 
VXX 




0P4014 


1 1f> 

iXv 


IPS 


115 

XX J 






10? 

X vC 


10S 

X V J 


IP? 

XCC 




0?40?? 


015 


01P 

VXC 








040 


040 


04^ 

V*t J 




0?40?7 


Oil 

vXX 


040 


IPO 

XCV 






103 

X 


oil 

VXX 


117 

XX ' 




OP407'5 


X vw 


040 

V"T V 


1 10 

X Xv 




OPAOAO 


1 11 
XXX 


1P4 

X C"t 


1?3 

X C^ 




OPAOA^ 


000 










105 

X 


1PP 

xcc 


1PP 
XCC 


l/riC f > 




1 17 

X X 1 


1?? 

xcc 


oil 

VXX 




0P405? 


105 


1?? 

xcc 


IPP 

xcc 




0?40^^ 


117 
li f 


1 PP 
xcc 


01 1 

V XX 




0?40ft0 


115 


IP*^ 

xc o 


105 






1?? 
xcc 


oil 

VXX 


110 

X XV 






1 1 1 

X XX 


1P4 
xc^ 


057 




0P4071 


1 15 

X X J 


111 

XXX 


1?3 

XC^ 




0P4l,74 


1P3 


Q15 


01? 

VXC 




3870 0P4077 


040 


040 

v^v 


043 

V^ J 




024102 


Oil 


040 


120 




024105 


103 


000 






3871 024107 


040 


124 


105 


DH41: 


02411? 


123 


124 


Oil 




024115 


105 


122 


122 




024120 


117 


122 


Oil 




024123 


111 


116 


123 




v24126 


124 


122 


125 





•ASCIZ / # PC REG. CACHE MEMORY/ 



.ASCII / TEST ERROR ADDRESS MSER/<15><12> 



•ASCIZ / 



PC 



ACCESSED/ 



.ASriI / TEST ERROR NUMBER /< 15 >< 12 > 



.ASCIZ / * PC OF HITS/ 



.ASCII \ERROR ERROR MSER HIT/MISS\<15><12> 



.ASCIZ / # PC/ 



■ASCII / TEST ERROR INSTRUCTI0N/<15><12> 



J9 



COKDOAO KDJll DA CLUSTER DiAG. 
GLOBAL kRROR MESSAGES 



MACRO V05.03 Tuesday 07-Jan-86 15:18 Page 38-18 



SEQ 0113 





1 C\1 


1 34 
IcH 


111 
111 


vcHi J** 


1 17 
111 


1 1ft 
IID 


01S 




Vic 






•JO f C VC"»1 HV 


040 


040 


043 




01 1 

Ull 


040 


1 PO 

lev 




1 0X 
IV J 


01 1 

Vll 


040 


0?41 SI 


1 17 
1 1 1 


1 PO 
lev 


10X 
X vO 




1 17 


104 


10S 

X v.> 




000 








040 


1 ?4 
ICH 


1 0S DHAX • 


024162 


1P3 


ICH 


Oil 

V XX 




10S 


1 P? 

Icc 


1 ?? 
XCC 


0P41 71 


1 17 
1 1 ' 


1P2 
xcc 


01 1 

vXX 


0?41 74 

vet 1 ' t 


1 0S 


130 

X wv 


IPO 

XCv 


0P4177 


lOS 


103 

X VO 


124 

XC"t 


0P4P0P 

vC *tc \JC 


1 04 

i vt 


01 1 

vXX 


122 

XCC 




105 

X V*/ 


103 


105 

X V^ 


VC *tC Xv 

034? 13 


111 


126 

XCw 


104 

X 


oil 

vxx 


103 

X V w 


101 

X vx 


yjc^c xu 


103 

X V^ 


110 

XXV 


105 

X v^ 




015 

V X.^ 


012 

V xc 




3874 024223 


040 

V ~ V 


040 


043 


024226 


on 

vxx 


040 


120 

XCV 


024231 

vC~C ^X 


103 


Oil 

VXX 


040 


024234 


104 

X v~ 


101 

X V X 


124 

X c~ 


024237 


101 

X V X 


oil 

VXX 


040 


024242 


104 

X V^ 


101 

X vx 


124 

X c~ 


024245 


101 

X vx 


on 

VXX 


114 

X x~ 


024250 

wC^C JV 


117 

X X 1 


103 

X w 


101 

X vx 


024^53 


124 

X c~ 


111 

XXX 


117 

X X > 


024256 

VC ~C 


116 

X XV 


000 

V vv 




3875 0?4?60 


040 

v~v 


124 

XC~ 


105 DH47' 

X V^ VI l~ f • 


024263 

VC ~C V «J 


123 

XC^ 


124 

XC~ 


oil 

VXX 


024266 

VC~C WW 


105 

X v.^ 


122 

xcc 


122 

XCC 


024271 

VC ~C ' X 


117 

1 X ' 


122 

XCC 


oil 

VXX 


024274 

vC ~C ' ~ 


101 

X VX 


104 

X V T 


104 

X v^ 


024277 

VC~C 1 1 


122 

X cc 


105 

X w 


123 

X C w 


024302 

VC ~ wc 


123 

X C V 


on 

VXX 


101 

X V X 


024305 

VC ^ W V J 


104 

X 


104 

X V T 


122 

X cc 


024310 

VC ~ si L V 


105 


123 

X c w 


123 

XCV 


0P43I3 


015 

V X.^ 


012 

V XC 




5876 024315 

•J\J ' \J VC~'^X^ 


040 

V~ V 


040 


043 


024320 

VC ~ «J C V 


01 1 

VXX 


040 

V~ V 


120 

XCV 


024323 


103 

X ViJ 


oil 


074 

V f ~ 


024326 

VC "T<JCw 


062 

V VC 


061 

V w X 


055 


024^31 

VC ~ %i X 


061 

V V X 


066 

WW 


076 


024334 

^C ~ W "J" 


0^ 1 

V ^ X 


040 


074 


024337 


061 

vwX 


065 


055 


024342 

VC ~ <J~C 


060 

wv 


076 

V I w 


000 

WW 


3877 024345 


040 


124 


105 DH65: 


024350 


123 


124 
122 


Oil 


024353 


105 


122 


024356 


117 


122 


Oil 


024361 


120 


122 


111 


024364 


117 


122 


111 


024367 


124 


131 


015 


024372 


012 







.ASCIZ / # PC OPCODE/ 



.ASCII / TEST ERROR EXPECTD RECEIVD CACHE/<15><12> 



.A5CIZ / # PC DATA DATA LOCATION/ 



.ASCII / TEST ERROR ADDRESS A0DRESS/<15><12> 



.ASCIZ / 9 PC <21-16> <15-0>/ 



.ASCII / TEST ERROR PRI0RITY/<15><12> 
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GLOBAL ERROR MESSAGES 



SEQ 0114 



3878 0£:4373 


040 


040 


043 




024376 


Oil 


040 


120 




024401 


103 


Oil 


114 




024404 


105 


126 


105 




024407 


114 


000 






3879 024411 


040 


124 


105 


DH72: 


024414 


123 


124 


Oil 




024417 


105 


122 


12? 




024422 


117 


122 


Oil 




024425 


101 


104 


104 




024430 


122 


105 


123 




024433 


123 


015 


012 




3880 024436 


040 


040 


043 




024441 


Oil 


04: 


120 




024444 


103 


Oil 


106 




024447 


101 


ill 


114 




024452 


105 


104 


000 




3881 024455 


040 


124 


105 


DH105: 


024460 


123 


124 


Oil 




024463 


105 


122 


122 




024466 


117 


122 


Oil 




024471 


122 


102 


125 




024474 


106 


015 


012 




3882 024477 


040 


040 


043 




024502 


Oil 


040 


120 




024505 


103 


000 






3883 024507 


040 


124 


105 


DH115: 


024512 


123 


124 


Oil 




024515 


105 


122 


122 




024520 


117 


122 


Oil 




024523 


115 


123 


105 




024526 


122 


Oil 


101 




024531 


104 


104 


122 




024534 


105 


123 


123 




024537 


015 


012 






3884 024541 


040 


040 


043 




024544 


Oil 


040 


120 




024547 


103 


040 


Oil 




024552 


on 


101 


103 




024555 


103 


105 


123 




024560 


123 


105 


104 




024563 


000 








3885 024564 


040 


124 


105 


DH134: 


024567 


123 


124 


Oil 




024572 


105 


122 


122 




024575 


117 


122 


Oil 




024600 


Oil 


040 


040 




024603 


040 


104 


101 




021606 


124 


101 


040 




024611 


040 


120 


101 




024614 


122 


040 


040 




024617 


040 


126 


111 




024622 


122 


124 


125 




024625 


101 


114 


015 




024630 


012 








3886 024o31 


040 


040 


043 




C24634 


Oil 


040 


120 





.ASCIZ / * PC LEVEL/ 



.ASCII / TEST ERROR ADDRESS/<15><12> 



.ASCIZ / * PC FAILED/ 



.ASCII / TEST ERROR RBUF/<15><12> 



.ASCIZ / * PC/ 



.ASCII / TEST ERROR MSER ADDRESS/<15><12> 



.ASCIZ / * PC 



ACCESSED/ 



.ASCII / TEST ERROR 



DATA PAR VIRTUAL/<15><12> 



.ASCIZ / * PC PATTERN READ 



ADDRESS/ 



L9 



COKODAO KDJll DA CLUSTER DIAG. MACRO V05.03 
GLOBAL ERROR MESSAGE: 



3887 
3888 



024637 


103 


040 


Oil 


024642 


120 


101 


124 


024645 


124 


105 


122 


024650 


116 


040 


040 


024653 


040 


A il A 

040 


122 


024656 


105 


101 


104 


02'»b61 


040 


040 


040 


024664 


040 


040 


040 


024667 


040 


040 


101 


024672 


104 


104 


122 


024675 


105 


123 


123 


024700 


OCO 









A A 1 1 to 


AA1 11c 


AAAAAA 


ATI . 


70QA Aoa7iA 


AA 1 1 £0 


A A lilt 

UUlllO 


AAAAA1 


ATil . 




1 lllAf. 

ill 1 'to 








TflQI (\0A100 
jOtI Klctlcc 




(\(\^ 1 1 A 


AAAAAD 


ATQ . 

U 1 j: 






AAI 1 Dd 


AAAAAA 




^^Q^ n'jATia 

■j07t; vctljO 




AA 1 1 1 A 


AA1 1 DD 


u \ 1 : 


nOAlAA 


1 lllAA 
1.1 1 ItH 


AAAAAA 










AA 1 1 1 A 


AA1 1 D^ 


ATI A . 




vUOlDc 


AAAAAA 






7AQA (\OAlf.O 


hni 1 <i5 


AA1 1 1 A 


AA 1 1 DA 


ATI 7 . 




UU4U0U 


AAAAAA 




7QQC noAllA 


nni 1 
UUiiOc 


AA1 1 1 A 


AAAAA7 


AT DA . 


vc JvVc 


vvvvvU 










nni 1 A3 

UUiiOc 


AA 1 1 1 A 


n77AA 
1 / 1 IH'i 


nTD7 . 


Uc Jvic 


AAAAAT 

vUUUUO 


AAAAAA 






7AQ7 ftO^ftlft 


Art 1 1 AO 


AA 1 1 1 A 
wiiiO 


AA 1 1 DA 


nT7^ . 
U 1 Oj : 




1 lllAA 
XIII HH 


AAAAAA 






7A0A AD^ftTft 


AAI 1 AD 


AA1 1 1 A 


AA1 < DA 


ATA1 . 


Uc jUOD 


UV^UUUU 








0077 UcjU'tU 


AAI 1 AD 


AA1 1 1 A 


AAAAA1 


DT43: 




AnAA7A 
UUhU OU 


AA1 1 DD 


AAAAAA 




J 7UV vCJVj*T 


06 11 6? 


001 1 16 




nT47 • 


025062 


001122 


000000 






3901 025066 


001162 


001116 


000001 


DT50: 


025074 


001122 


000000 






3902 025100 


001162 


001116 


001124 


DT51: 


025106 


r7522 


000000 






3903 025112 


001162 


001116 


001124 


DT52: 


023120 


177520 


000000 






3904 025124 


001162 


001116 


001124 


DT64: 


025132 


002340 


000000 






3905 025136 


001162 


001116 


001124 


DT65: 


025144 


000000 








3906 025146 


001162 


001116 


001124 


DT75: 


025154 


001126 


000000 






3907 025160 


001162 


001116 


177562 


DT105: 


025166 


000000 








3908 025170 


001162 


001116 


001126 


tlTllS: 


025176 


172354 


001122 


000000 




3909 025204 


001162 


001122 


000000 


DT130: 


3910 025212 


001162 


001116 


001124 


DT134: 


025220 


001126 


172344 


001122 


025226 


000000 
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SEQ 0115 



.EVEN 
.UORD 
.UORD 


$TMP1 
$TMP1 


$ERRPC.O 
$ERRPC.R1.CCR,0 


.WORD 


$TMP1 


$ERRPC.R2.R1.$GDDAT.0 


.UORD 


i 'MPi 


$ERRPC,$BDADR,MSER,0 


.UORD 


$TMP1 


JERRPC,$GDDAT.TSTLOC.O 


.UORD 


$TMP1 


$ERRPC.$GDDAT.RECDAT,0 


.WORD 


$TMP1 


$ERRPC.R3,0 


.WORD 


$TMP1 


$ERRPC,MSER.R3,0 


.UORD 


$TMP1 


JERRPC.$G0DAT.MSER.0 


.UORD 


$TMP1 


<ERRPC,$BDDAT.O 


.UORD 


$TriPl 


<ERRPC.R1.RECDAT,$BDADR,0 


.UORD 


$TMP1. 


$ERRPC.KIPAR6.$BDADR.0 


.UORD 


$TriPl. 


$ERRPC.R1.$BDADR.0 


.UORD 


$TMP1, 


$ERRPC,$GDDAT,PCR,0 


.UORD 


$TriPl. 


$ERRPC.$GDDAT.BCSR,0 


.UORD 


$TMP1, 


$ERRPC.$GDDAT,LKSrL,0 


.UORD 


$TMP1, 


$ERRPC,$GDDAT.0 


.UORD 


$TMP1, 


$ERRPC,$GDDAT,$BDDAT,0 


.UORD 


$TMP1, 


$ERRPC.RBUF,0 


.UORD 


$TMP1, 


JERRPC . JBDDAT , KIPAR6 , $BDADR , 0 


.UORO 
.UORD 


$TMP1, 
$TMP1, 


$6DADR,0 

$ERRPC , $GDDAT , $BDDAT .KIPAR2 , $BDADR ,0 
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SEQ 0116 



3912 
3913 
3914 
3915 
3916 
3917 
3918 
3919 
3920 
3921 
3922 

3923 025230 

3924 025230 

3925 025234 

3926 025242 

3927 025246 

3928 025250 

3929 025252 

3930 025256 
3931 

3932 025260 
393T 

3934 0*^5264 

3935 025266 

3936 025270 

3937 025272 

3938 025274 

3939 025276 

3940 025300 

3941 025304 

3942 025310 

3943 025312 

3944 025314 

3945 025316 

3946 025322 

3947 025326 

3948 025330 

3949 025332 

3950 025334 

3951 025340 

3952 025342 

3953 025344 

3954 025346 

3955 025352 

3956 025354 

3957 025354 

3958 025360 

3959 025362 

3960 025370 
3%1 025374 

3962 025400 

3963 025404 

3964 025410 
3965 

3966 025416 

3967 025420 
3%8 025422 



005037 
113737 
104401 
010046 
005000 
153700 
001004 

013746 

104402 
000426 
005300 
006300 
006300 
006300 
062700 
012037 
001404 
104401 
000000 
104401 
012037 
001404 
104401 
000000 
104401 
011000 
001004 
012600 
104401 
0C0207 

021027 
101021 
042737 
011037 
000337 
006237 
006237 
053737 

010046 
005720 
000401 



.SBTTL MODIFIED ERROR MESSAGE TYPEOUT ROUTINE 

♦THIS ROUTINE USES THE "ITEM CONTROL BYTE" ($ITEMB) TO DETERMINE WHICH 
♦ERROR IS TO BE REPORTED. IT THEN OBTAINS. FROM THE 'ERROR TABLE" (JERRTB;. 
*ANO REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 

♦THE ONLY DIFFERENCE BETWEEN THIS ROUTINE AND THE ORIGINAL "$ERRTYP" FRuH 
♦SYSHAC IS THAT YOU CAN PASS INFORMATION IN GENERAL PURPOSE REGISTERS TO THIS 
♦ROUTINE. THE GENERAL PURPOSE REGISTERS USED ARE TO SE SPECIFIED IN DT* 
♦FORMAT. RO SHOULD NOT BE USED. 



001162 

001102 001162 
001175 



001114 
001116 



ERTYPE: 



1$; 



001324 
025314 



001175 
025332 



001175 



001175 



000005 

000700 025416 

001160 

001160 

001160 

001160 

001160 025416 



2$: 
3$: 

4$ 
5$ 
hi 

7$; 



8): 



CLR 

M0V6 

TYPE 

MOV 

CLR 

BISB 

BNE 

MOV 

TYPOC 

BR 

DEC 

ASL 

ASL 

ASL 

ADD 

MOV 

BEQ 

TYPE 

.WORD 

T"PE 

MOV 

BEQ 

TYPE 

.WORD 

TYPE 

MOV 

BNE 

MOV 

TYPE 

RTS 

CMP 

BHI 

BIC 

MOV 

SUAB 

ASR 

ASR 

BIS 

MOV 
TST 
BR 



$TMP1 

$TSTNM,$TMP1 
.$CRLF 
ftO,-(SP) 
RO 

a*$ITEMB,RO 
1$ 

$EPRPC.-(SP) 



6$ 
RO 
RO 
RO 
RO 

#iEftRTB,RO 

(R0)*.2i 

3$ 



.JCRLF 

iR0)+.4* 

5$ 

0 

,$CRLF 

(RO).RO 

7$ 

(SP)*.R0 

.$CRLI^ 

^C 



J1;ST CLEAR IT 

STORE TEST NUMBER 

"CARRIAGE RETURN" : LINE FEED' 

SAVE RO 

PICKUP THE ITEM INDEX 

IF ITEM NUMBER IS ZERO. JUST 
TYPF THE PC OF THE ERR6r 
SAVE $ERRPC FOR TYPEOUT 
ERROR ADDRESS 

GO TYPE-OCTAL ASCIKALL DIGITS) 
GET OUT 

ADJUST THE INDEX SO THAT IT WILL 
WORK FOR THE ERROR TABLE 



FORM TABLE POINTER 

PICKUP "ERROR MESSAGE" POINTER 

SKIP TYPEOUT IF NO POINTER 

ERROR MESSAGE POINTER GOES HERE 
"CARRIAGE RETURN" £ "LINE FEED" 
PICKUP "DATA HEADER" POINTER 
SKIP TYPECUT IF 0 
TYPE THE "DATA HEADER" 
"DATA HEADER" POINTER GOES HERE 
"CARRIAGE RETURN" 6 "LINE FEED" 
PICKUP "DATA TABLE" POINTER 
GO TYPE THE DATA 
RESTORE RO 

"CARRIAGE RETURN 6 "LINE FEED ' 
RETURN 



(R0).*5 GENERAL PURPOSE REGISTER? 

9$ iilF NOT. GO TYPE DATA 

#6IT8!BIT7!BIT6.Si :: CLEAR BITS FOR SOURCE REGISTER 
(RO).$TMPO ;;SAVE (ftO) 

GET REGISTER NUMBER TO HIGH BYTE 
GET REGISTER NUMBER TO BITS 8 6 



ump6 

$TMPO 
$TMPO 
$TMP0,8$ 



RO,-(SP) 

(R6)* 

10$ 



SET BITS IN MOV INSTRUCTION 
ACCORDING TO REGISTER NUMBER 
MOVE CONTEXT OF REGISTER TO STACK 
ADVANCE POINTER 
GO TYPE 



N9 
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MODIFIED ERROR MESSAGE TYPEOUT ROUTINE 



3969 025424 

3970 025426 

3971 025430 

3972 025432 

3973 025434 

3974 025440 

3975 025442 
3976 

3977 
3978 
3979 
3980 
3981 
398? 
3983 
5984 
3985 
3986 
3987 
3988 
3h*89 
3990 
3 

3993 
3994 
3995 
3996 
3997 
3998 
3999 
4000 

4001 025446 

4002 025452 

4003 025456 

4004 025462 

4005 025466 

4006 025472 
400' 025476 

4008 025502 

4009 025506 

4010 025512 

4011 025516 

4012 025522 

4013 025526 

4014 025532 

4015 025536 

4016 025542 

4017 025546 

4018 025552 

4019 025556 

4020 025562 

4021 025566 

4022 025572 

4023 025576 

4024 025602 

4025 025606 



013046 
104402 
005710 
001744 

104401 025442 



000745 
040 



012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
000207 



040 



172240 
025610 
172260 
025610 
172340 
025610 
172360 
025610 
177640 
025610 
177660 
025610 
177600 
025640 
177620 
025640 
172300 
025640 
172320 
025640 
172200 
025640 
172220 
025640 



000 11$: 



9$: MOV 
10 J: TYPGC 
TST 
BEQ 
TYPE 
BR 

.ASCIZ / / 
.EVEN 



a(RO)*.-(SP) 

(RO) 
6$ 



IF NOT 6PR. SAVE j(RO)* FOR TYPEOUT 
GO TYPE--OtTAL ASCI (ALL DIGITS) 
IS THERE ANOTHER NUMBER? 
BR IF NO 

TYPE TW0(2) SPACES 



;;TW0(2) SPACES 



.SBTTL GLOBAL SUBROUTINES SECTION 



THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
THAT ARE USED IN MORE THAN ONE TEST. 



Functional description: 

subroutine to initialize all the mmu registers 



INPUTS: NONE 
OUTPUTS: NONE 
SUBORDINATE ROUTINES USED: 



LOAD PARS 
LOAD PORS 



FUNCTIONAL SIDE EFFECTS: NONE 
CALLING SEQUENCE: JSR PC.INITMM 



INITMM: 



MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
RTS 



#172240. Rl 
PC. LDf 
n)2260.RJ 



PC^._ LDPARS 

PC/ 'lJpars 



*l)2340.Rl 
PC. LDPARS 
#1)2360. Rl 
PC. LDPARS 
#1)7640. Rl 
PC. LDPARS 
#1)7660. Rl 
PC. LDPARS 
#1)7600. Rl 
PC. LDPDRS 
#l)7620.Rl 
PC. LDPDRS 
#1)2300, Rl 
PC. LDPDRS 
#l)2320.Rl 
PC. LDPDRS 
#1)2200, Rl 
PC. LDPDRS 
#172220. Rl 
PC. LDPDRS 
PC 



:BASE 


ADDRESS 


OF SIPARS 


:6ASE 


ADDRESS 


OF SDPARS 


:BASE 


ADDRESS 


OF KIPARS 


iBASE 


ADDRESS 


OF KDPARS 


:6ASE 


ADDRESS 


OF UIPARS 


:BASE 


ADDRESS 


OF UDPARS 


;BASE 


ADDRESS 


OF UIPORS 


jBASE 


ADDRESS 


OF UDPDRS 


:BASE 


ADDRESS 


OF KIPORS 


:BASE 


ADDRESS 


OF KDPDRS 


;BASE 


ADDRESS 


OF SIFDRS 


:BASE 


ADDRESS 


OF SOPORS 


: RETURN 





0 
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4027 

4028 

4C'9 

40!0 

4031 

4032 

4033 

4034 

4035 

4036 

4037 

4038 

4039 

4040 

4041 

4042 

4043 

4044 

4045 

4046 

mi 02b610 

4048 025614 

4049 025616 

4050 025620 

4051 025624 

4052 025626 

4053 025632 

4054 025636 
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J FUNCTIONAL DESCRIPTION: 

; Sl«ROUTINE TO INITIALIZE ALL THE MMU PAGE ADDRESS REGISTERS (PARS). 
: THIS ROUTINE WILL INITIALIZE 8 PARS STARTING AT A BASE ADDRESS 

; SUPPLIED BY THE CALLING ROUTINE. PARS 0-5 WILL BE MAPPED FROM 

: ADDRESS 0 TO ADDRESS 137777 (0-24K). PAR 6 UILL BE MAPPED FROM 

; ADDRESS 200000 '0 217777 AND PAR 7 UILL BE MAPPED TO THE I/O 

; PAGE . 

; INPUTS: 

; Rl CONTAINS THE BASE ADDRESS OF THE NEXT 8 PARS TO BE INITIALIZED 

: OUTPUTS: NONE 

: SUBORDINATE ROUTINES USED: NONE 

; FUNCTIONAL SIDE EFFECTS: NONE 



SEQ 0118 



012702 000006 

005003 

010321 

062703 000200 
077204 

012721 002000 
012711 177600 
000207 



; CALLING SEQUENCE: 



LDPARS: MOV 
CLR 



1$: 



MOV 
ADD 
SOB 
MOV 
MOV 
RTS 



*6. 

R3 
R3. 
*200, 
R2 



JSR 
R2 



PC. LDPARS 



(RD* 
R3 

2600. CRl)* 
177600. (Rl) 
PC 



LET LOOP COUNTER COUNT FIRST 6 PARS 
INITIALIZE INDEX VALUE 
LOAD PARS 

INDEX IN 4K INCREMENTS 
LOAD FIRST SIX PARS 
LET PAR6 MAP TO 200000 
LET PAR7 MAP TO I/O PAGE 
RETURN 



COKOMO KDJU OA CLUSTER OIAG. 
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4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 

4065 
4066 
406"' 
4068 
4069 
4070 
4071 
4072 
4073 
40''4 
40"5 
4076 

4077 025640 012702 000006 

4078 025644 012721 177406 
4C79 025650 077203 

4080 025652 012721 077406 

4081 025656 012711 077406 

4082 025662 000207 
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FUNCTIONAL DESCRIPTION: 

SUBROUTINE TO INITIALIZE ALL THE «MU PAGE DECRIPTOR REGISTERS (?DRS) 

fi>'^h^ '''' ' ' « luv&hhm" 

NOTE: THERE IS NO NEED TO BYPASS ON I/O PAGE REFERENCES BECAUSE 
THE CACHE DOES NOT ALLOCATE ANf OF THESE REFERENCES 

INPUTS: 

Rl CONTAINS THE BASE ADDRESS OF THE NEXT 8 PDRS TO BE INITIALIZED 
: OUTPUTS: NONE 

: SUBORDINATE ROUTINES USED: NONE 
! FUNCTIONAL SIDE E^^FECTS: NONE 



SEQ 0119 



CALLING SEQUENCE: 



JSR PC.LDPARS 



lDpdrs: nov 



1$; 



MOV 
SOB 
MOV 
MOV 
RTS 



#6. R2 
#177406. (Rl)» 
R2. 1$ 
*7)406. (Rl)» 
*77406. (Rl) 
PC 



LET LOOP COLTER COUNT FIRST 6 PARS 

LOAD PDRS UITH 4K READ/URITE BYPASS 

LOAD FIRST SIX ODRS 

LET PAR6 BE 4K REAO/URITE NO BYPASS 

LET PAR7 BE 4K READ/URITE NO BrPASS ALSO 

RETURN 



I 
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SEQ 012C 



4084 

4085 

4086 

4087 

4088 

4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 

4097 

4098 

4099 

4100 

4101 

4102 

4103 025664 

4104 025670 

4105 025676 

4106 025700 

4107 025702 
4108 

4109 

4110 025702 

4111 025710 

4112 025712 

4113 025714 

4114 025720 

4115 025722 

4116 025726 
4117 

4118 
4119 
4120 
4121 
4122 

4123 025730 

4124 025736 

4125 025740 
4126 

4127 
4128 

4129 025742 

4130 025746 

4131 025754 

4132 025762 

4133 025766 

4134 025772 

4135 025776 
4136 

4137 
4138 

4139 026000 

4140 026004 



011637 
032737 
001401 
104004 



032737 
001401 
104004 
005037 
000002 
005237 
000002 



032737 
001401 
000207 



013701 
012737 
012737 
005037 
012"'C2 
012705 
000404 



062702 
062703 



001122 

000100 177744 



000040 r7744 



177744 
002340 



000004 

026122 000004 
000340 000006 
001160 
170000 
000510 



000020 
000004 



FUNCTIONAL DESCRIPTION: 

SUBROUTINE TO HANDLE PARITY ERROR ABORTS FROH THE RAfI STORE RAfI TESTS. 

INPUTS: 

HE10RY SYSTEM ERROR REGISTER CONTAINS BITS INDICATING FAILURE 
OUTPUTS: NONE 

SUBORDINATE ROUTINES USED: NONE 

FUNCTIONAL SIDE EFFECTS: NONE 

CALLING SEQUENCE: CALLED Br PARITY ABORT 

MOV 8*114. SLOCOO ;SAVE CONTENTS OF PARITY ABORT VECTOR 
MOV SDSPAft. a*114 sLET VECTOR POINT TO PARITY ABORT ROUTINE 



(CACHE PARITY ERROR OCCURS) 



RAMPAR: MOV 
BIT 



1$:: 

ff 

3$: 

LKSINT: 



BEQ 

ERROR 

BIT 

BEQ 

ERROR 

BIT 

BEQ 

ERROR 

CLR 

RTI 

INC 

RTI 



(SP),$BDADR 
«IT66. MSER 
1$ 
♦4 

#BIT07. MSER 

2$ 

♦4 

«BIT05. MSER 

3$ 

♦4 

MSER 
LKSFL 



STOR ADDESS TRAPPED 

IF LOU BYTE PARITY ERROR 

THEN 

ERROR 

IF HIGH BYTE PARITY ERROR 

THEN 

ERROR 

IF TAG PARITY ERROR 

THEN 

ERROR 

INITIALIZE MSER AFTER ERROR 
RETURN 

INCREMENT FLAG 



SBTTL Q22BE SIZE ROUTINE 

THIS ROUTINE WILL AUTOSIZE FOR UP TO TWO Q22 BUS EXERCISERS. IF NONE 
FOUND LOCATIONS CSRl AND CSR12 UILL BE LEFT ZEROES. THIS ROUTINE UILL 
ONLY RUN IN NOT UFD MODE. 



001000 177750 Q22SIZ: 



BIT *6IT09,MAIREG 
BEQ U 
RTS PC 



PREPARE TO DO SIZING 



MOV 
MOV 
MOV 
CLR 

MOV 
MOV 
BR 



ERRVEC.Rl 

#7$,ERI^VEC 

#340.ERRVECt2 

$tmp6 

#1 70000. R2 

*510.R3 

3$ 



NOW DO ACTUAL SIZING 



2$: 



ADD 
ADD 



ff20.R2 
M.ft3 



JNTBUS SYSTEM? 

IF NOT. ADVANCE TO ROUTINE 

OTHERWISE. RETURN 



STORE TIMEOUT VECTOR 
POINT NEW TO PROGRAM 
AT PRIORITY 7 
CLEAR Q22BE COUNTER 
FIRST POSSIBLE ADDRESS 
VECTOR FOR IT 
TRY THOSE VALUES 



;GET CSR FOR NEXT Q22BE 
;GET VECTOR FOR NEXT ONE 
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4141 026010 005712 
4142 
4143 
4144 

4145 026012 

4146 026016 

4147 026020 

4148 026024 

4149 026030 

4150 026036 

4151 026040 

4152 026044 

4153 026050 

4154 026052 

4155 026056 

4156 026060 

4157 026064 

4158 026066 

4159 026072 

4160 026076 

4161 026104 

4162 02611C 

4163 026116 

4164 026120 
4165 
4166 
4167 

4168 026122 

4169 026124 

4170 026126 

4171 026132 

4172 026134 

4173 026140 

4174 026142 

4175 026146 

4176 026152 
4177 

4178 026154 
026157 
026162 
026165 
026170 
026173 
026176 
026201 
026204 
026207 

4179 
4180 
4181 
4132 
4183 
4134 

4135 025210 

4136 026212 

4187 026216 

4188 026222 
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SEQ 0121 



3$; 



TST 



(R2) 





AA 1 1 L.r\ 






TCT 


AAI A1 A 
UUlUlU 








blur 




AA007>I 






MAW 

nuv 


A 1 AO*?"? 


AA07 1 0 






nuv 




AAAA 1 C 


AA07 1 0 




AAA 


AAA>I AO 








DO 

dK 


A1 07A^ 


AA0700 
UUC'JCC 






nuv 


A1 "^TAA 


AAAAAA 

UUUUU«» 




j» : 


Mnw 

nuv 


010P15 








MOV 


011565 


000002 




6$: 


MOV 


005725 








TST 


062715 


000002 






ADD 


A77A 
U ( /•♦UO 








cnn 
bUD 


A1 A7<^^ 


UUUUUc 






Mnv/ 
nuv 


UiU jOj 


>'UUUUH 






nuv 


UOc IOj 


AflftftrtO 
UUUUUc 








AAi:077 


AA1 1 Cf, 
UUiluU 








UCC 1 w ' 


000005 
uuv'uuc 


001 1 AO 




rwip 


AA1 ^AC 








DCbl 










RR 
On 








, 

i ON 


TIMEOUT 


005726 








TST 


005726 








TST 


022702 


170160 




8$: 


CMP 


001322 








BNE 


005737 


002274 




9$: 


TST 


001402 








BEQ 


104401 


026154 






TYPE 


010137 


000004 




10$: 


MOV 


000207 








RTS 



012 
062 
105 
123 
040 
122 
107 
105 
111 
000 



015 
062 
O'O 
105 
104 
111 
040 
123 
116 



121 
102 
125 
104 
125 
116 
124 
124 
107 



IF NO TIMEOUT. STORE EXISTING ADDRESSES TO REGISTERS 

JTMPO 
4$ 

*CSR1,R5 
R2.SIMG0A 
Sl^.SIMGOP 
5$ 

*CSR12.R5 
#4,R4 
R2.(R5) 

*2.(R5) 
R4.6$ 
R3,2(R5J 
P3.4(R5) 
#2.4(R5) 
$TMPO 
«.$TMPO 
9$ 
8$ 

ON TIMEOUT TRY TO LOOK AT NEXT ADDRESS RANGE 

*170160,R2 
2$ 

CSRl 
10$ 

.0N0Q22 
ftl.ERRVEC 
PC 

0N0Q22: .ASCIZ <12><15>/Q22BE USED DURING TESTING/ 



:TRY TO ACCESS CSR 



FIRST Q22BE FOUND? 
IF SECOND, BRANCH 
START WITH CSRl FOR 1ST 
SIMUi.TANEOUS 60 
ADDRESS 

BRANCH TO INITIALISE 
START WITH CSR12 FOR 2ND 
INITIALISE 5 REGISTERS 
INITIALISE CSRl 
STORE TO NEXT ONE 
GET NEXT ADDRESS 
GET ADDRESS. POINT NEXT 
DO FOR NEXT 4 REGISTERS 
STORE INTERRUPT VECTOR 
AND PRIORITY 

COUNT Q22BE S 

TWO FOUND? 

IF SO. STOP SIZING 

OTHERWISE . CONTINUE SIZING 



RESTORE STACK FROM 
TIMEOUT 

AT THE LAST POSSIBLE? 

IF NOT. BRANCH 

1 FOUND? 

IF NONE. BRANCH 

TYPE FOUND 

RESTORE TIMEOUT VECTOR 
RETURN 



EVEN 

SBTTL Q22BE INTERRUPT INITIALISE ROUTINE 

THIS ROUTINE WILL INITIALISE Q22BE TO INTERRUPT AT A PRIORITY AT (RO)^ 
AT THE STARTING ADDRESS IN R3. THE TEST HAVE TO SET ACTUAL DONE BIT 
BY CLEARING GO. 



005013 

052710 000001 

011063 000002 

042710 000001 



Q22INT: CLR 
BIS 
MOV 
BIC 



(R3) 

*BITOO,(RO) 

(R0).2CR3) 

#BIT6o,(RO) 



CLEAR TRANSFER TYPE In CSRl 
ZERO DONE 

SET PRIORITY IN CSR2 
PREPARE TO SET DONE 
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SEQ 0122 



4189 026226 

4190 

4191 

4192 

4193 

4194 

4195 

4196 

4197 026230 

4198 026236 

4199 026240 

4200 026242 

4201 026250 

4202 026252 

4203 026260 

4204 026266 

4205 026274 

4206 026302 

4207 026306 

4208 026310 
4209 

4210 
4211 
4212 
4213 

4214 026312 

4215 026320 
4?16 026322 

4217 026324 

4218 026332 

4219 026340 

4220 026346 

4221 026350 
4222 

4223 026356 

4224 026364 

4225 026372 

4226 026376 

4227 026400 
4228 

4229 
4230 

4231 026402 

4232 026406 

4233 016410 
4234 

4236 
4237 
4238 
4239 
4240 
4241 

4242 026412 

4243 026414 

4244 026416 

4245 026420 

4246 026424 



000207 



RTS 



PC 



012777 
005700 
001412 
012777 
012777 
012777 
000411 
012777 

012777 
012777 
105777 
100375 
000207 



011637 
104041 
000002 



010046 
010146 
010246 
012700 
004737 



SBTTL DMATRN OATO CYCLE THRU Q22BE 

THIS ROUTINE PERFORMS DATO FROM A LOCATION TEMP THRU THE FIRST 
FOUND Q22BE STARTING AT LOCATION 3CSR1. RO HAS 0 IF ONLY 1 TRANSFER IS 
TO BE PERFORMED. OTHERWISE 16 BLOCK MODE TRANSFERS ARE TO BE PERFORMED. 
■■■ * " ED BEFORE. 

DATA USED 
DO 1 WORD? 
IF YES. BRANCH 
BLOCK MODE. GO 
BRANCH TO 60 IT 
RESET LATENCY COUNT. OATO 
LOAD DMA ADDRESS 
DO 1 WORD 
DO IT 
DMA DONE? 
UAIT TILL DONE 
RETURN FROM SUBROUTINE 

.SBTTL DMARD DATI THRU Q22BE 

;THIS ROUTINE PERFORMS DATI CYCLE THRU Q22BE IN EITHER BLOCK MODE OR A SINGLE 
; TRANSFER MODE. MEMORY LOCATION USED IS TEMP. RO IS ZERO FOR SINGLE TRANSFER 



012777 


012525 


154046 


DMATRN: 


MOV 


#12525. 3DATA 


005700 








TST 


RO 


001404 








BEQ 


1$ 


012777 


00 1001 


154026 




MOV 


#BIT09!BIT00.3CSR2 


000414 








BR 


2$ 

»1601,3CSR1 
STEMP.SBA 
*1 777^7, 3UC 


012777 


001601 


154014 


1$: 


MOV 


012777 


002740 


154012 




MOV 


012777 


177777 


154006 




MOV 


012777 


000001 


153774 




MOV 


#6IT00,3CSR2 


105777 


153770 




2$: 


TSTB 


3CSR2 


100375 








BPL 


2$ 


000207 






3$: 


RTS 


PC 



002740 153760 DMARD: 



001507 
177770 
001001 



153742 
153742 
153730 



001407 153716 1$; 



177777 
000001 
153700 



001122 



153716 
153704 



2$: 
3$: 

TOUT: 



MOV *TEMP.a8A 

TST RO 

BEQ U 

MOV *1507.aCSRl 

MOV #177770.aWC 

MOV #eiT09!8lT00.aCSR2 

BR 2$ 

MOV #1407.aCSRl 

MOV *1 77777, awe 

MOV #BIT00.3CSR2 

TSTB aCSR2 

BPL 2$ 

RTS PC 



MOV (SP).J8DADR 

ERROR ^41 

RTI 



LOAD DMA ADDRESS 
DO 1 WORD? 
IF YES. BRANCH 
16 DATIB 
DO 8 WORD 
BLOCK MODE GO 
GO CHECK 

RESET LATENCY COUNT .DATI 
LOAD NEW DATA TO DaIa R. 
DO 1 WORD 
DO IT 
DMA DONE? 
WAIT TILL DONE 
RETURN FROM SUBROUTINE 



:STORE TRAPPED PC 
jUNEXPECTED TRAP 



MMU GLOBAL SUBROUTINES 



ROUTINE TO INITIALIZE MEMORY MANAGEMENT 



MMU: 



177600 
026512 



MOV 
MOV 
MOV 
MOV 
JSR 



RO,-(SP) 
Rl.-(SP) 
R2.-(SP) 
#1^7600. RO 
PC.PDR 



SAVE CONTENTS OF REGISTERS 



INIT I AND D USER PDR'S 



CO^OOAO ^DJll DA CLUSTER OIAG. 
DMARO DATI THRU Q22BE 



4247 

4248 

4249 

4250 

4251 

4252 

4253 

4254 

4255 

4256 

4257 

4258 

4259 

4260 

4261 

4262 

4263 

4264 

4265 

4266 

4267 

4268 

4269 

4270 

4271 

4272 

4273 

4274 

4275 

4276 

4277 

4278 

4279 

4280 

4281 

4282 

4283 

4284 

4285 

4286 

4287 

4288 

4289 

4290 

4291 

429? 

4293 

4294 

4295 

4296 

4297 

4298 

4299 

43:0 

4301 

4302 

4303 



026430 
026434 
026440 
026444 
026450 
026454 
026460 
026464 
026470 
026474 
026502 
026504 
026506 
026510 



026512 
026514 
026520 
026524 
026530 
026532 



026534 
026536 
026540 
026544 
026550 
026552 
026556 



026560 
026562 



026564 
026572 
026574 
026576 
026600 
026604 
026610 
026614 
026616 
026620 
026624 
026630 
026634 
026640 
026642 
026646 



004737 
004737 
012700 
004737 
004737 
004737 
004737 
004737 
004737 
012737 
012602 
012601 
012600 
000207 



005002 
012720 
062702 
022702 
001371 
000207 



005001 
010120 
062701 
022701 
001372 
012720 
000207 



005205 
000002 



026534 
026534 
1 /2200 
026512 
026534 
026534 
026512 
026534 
026534 
000027 



077406 
000001 
000020 



000200 
001600 

177600 
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JSR PC. PAR 

JSR PC.PAR 

MOV *1 72200.ro 

JSR PC.PDR 

JSR PC.PAR 

JSR PC.PAR 

JSR PC.PDR 

JSR PC.PAR 

JSR PC.PAR 

MOV #27,a#172516 

MOV (SP5+.R2 

MOV (SP)*.R1 

MOV (SP)+.R0 

RTS PC 



172516 



; ROUTINE TO INITIALIZE PDR'S 



^DR: 
PORl: 



CLR 
MOV 
ADD 
CMP 
BNE 
RTS 



R2 

#77406.(R0)^ 

#1,R2 

#16.. R2 

PDRl 

PC 



: ROUTINE TO INITIALIZE PAR'S 

^AR: CLR Rl 

PARI: MOV R1,(R0)+ 

ADD #260.R1 

CMP #i606.Rl 

BNE PARI 

MOV #177600. (RO)* 

RTS PC 

Itime out routine 

P5 



AdDTRP: INC 
RTI 



MMU TRAP ROUTINE 



023727 


003026 


000001 


MMUTRP; 


CMP 


001401 








6EQ 


104002 








ERROR 


010046 








MOV 


013700 


177776 






MOV 


072027 


177764 






ASH 


020027 


000002 






CMP 


001001 








BNE 


000411 








BR 


013700 


177776 




OK: 


MOV 


072027 


000002 






ASH 


072027 


17776^ 






ASH 


020027 


000002 






CMP 


001002 








BNE 


005066 


000004 




NOTOK: 


CLR 


013737 


177572 


003040 


OKI: 


MOV 



FLAG.*1 

1$ 

♦2 

RO.-(SP) 

air'177776,R0 

#-14.R0 

R0.#2 

OK 

NOTOK 

S#177776.R0 

#2,R0 

#-14.R0 

R0,#^ 

OKI 

4(SP) 

a#1775^2,SAVMR0 



3 



SEQ 0123 



INIT I OSER PAR'S 
INIT D USER PAR S 

INIT I AND D SUP PDR 
INIT I SUP PAR'S 
INIT 0 SUP PAR'S 
INIT I AND D ^ER PDR 
INIT I KER PAR'S 
INI" D KER PAR'S 
INIT MMR3 
RESTORE REGISTERS 



RETURN 



INIT CNTR 
INIT PDR 
INCREMENT CNTR 
ARE UE DONE? 
BRANCH IF NOT 
RETURN 



SETUP TO INIT PAR 
INIT PAR 

GET READY FOR NEXT PAR 
REACHED A PAR7 
BRANCH IF NOT 
INIT PAR7 
RETURN 



; INCREMENT TIME OUT FuAG 
; RETURN 



;ARE UE EXPECTING AN ABORT 
:YES GO ON 

,0 t6 error 

:save contents of reg 0 
;save a copy of psu 
;look at bits<15:14> 

;UAS PS<15:14>=10 
;N0 GO ON 

;YES CHANGE BITS TO 00 
;SAVE A COPY OF PSU 
[LOOK AT BITS<13:12> 

UAS PS<13:12>=10 
NO GO ON 

CLEAR ILLEGAL MODE FFROM OLD PSU 
SAVE A COPY OF MMRO 



-10 

COKOOAO KOJll-OA CLUSTER OIAG. 



OHARO OATI THRU Q226E 



4304 C26654 

4305 026662 

4306 026670 

4307 026674 

4308 026700 

4309 026702 



013737 
013737 
005037 
005037 
012600 
000002 
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177574 003042 
177576 003044 
177572 
003026 



MOV 
MOV 
CLR 
CLR 
MOV 
RTI 



a*177574,SAVMRl 

a#177576.SAVMR2 

3*177572 

FLAG 

CSP)*.RO 



SEQ 0124 



SAVE A COPY OF MMRl 

SAVE A COPY OF MMR2 

CLEAR ABORT BITS AND TURN MMU OFF 

CLEAR MMU ABORT FLAG 

RESTORE ORIGINAL CONTENTS OF REG 0 

RETURN 
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SEQ 0125 



4313 
4314 
4315 
4316 

4318 

4319 

4320 

4321 

4322 

4323 

4324 

4325 

4326 

4327 

4328 

4329 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

4339 

4340 

4341 

4342 

4343 

4344 

4345 

4346 

4347 

4348 

4349 

4350 

4351 

4352 

4353 

4354 

4355 

4356 

4357 

4358 

4359 



026704 
026706 
02671C 
0P67i2 



026714 
026716 
026720 



026722 
026724 
026726 
026734 

026740 
026742 
026744 
026752 
026756 
026760 
026762 
026764 
026766 
026770 



012600 
012605 
104003 
000110 



000000 
000207 
000207 



•SAVE PC 

iSAVE STATUS AND RESTORE STACK 
;G0 BACK INLINE 



;FPP COnnON SUBROUTINLS 
ULDTRP: MOV (SP)i,RO 
MOV (SP)*.R5 
ERROR ^3 
JMP (RO) 



IrPFLG: .WORD 0 
ERRFP: RTS R7 
ERR: RTS R7 



SUBROUTINE DATA VERFICATION - 

CALLED BY JSR R7.0ATVER 

INPUT: (R4)=EXPECTED DATA 

(Rl 5 'RECEIVED DATA 

THiS ROUTINE VERIFIES THAT THE 4 CONSECTIVE WORDS STARTING UITH (R4) ARE 
Em TO THE FOUR WORDS ADDRESSED BY (Rl). THE CONTENTS OF R4. AND Rl ARE NOT 
DISTURBED. 

LOCATION "COUNT" . IF NOT EQUAL TO 0 SIGNIFIES DATA ERROR 

IF THE STATUS IS FLOATING MODE. THE LAST TWO BYTES OF RECEIEVED 

ARE SIMPLY CHECKED FOR ZEROS 



010446 






DATVFR: 


MOV 


010146 








MOV 


012737 


000003 


003120 




MOV 


000137 


026752 






JMP 


010446 






6aTVER: 


MOV 


010146 








MOV 


012737 


000005 


003120 




MOV 


005337 


003120 




DATI: 


DEC 


001402 








BEQ 


022421 








CMP 


001773 








BEQ 










MOV 


012604 








MOV 


000207 











5^' 

Rl. 

W.COUNT 
DAtl 



R4.-(SP) 
Rl.-CSP) 
#5. COUNT 
COUNT 
2$ 

(R4)s(Rl) + 
DATI 

(SP)*.R1 
{SP)*.R4 
R7 



:SAVE R4 

■SAVE Rl 

;SET UP Iteration count 



:SAVE R4 
•SAVE Rl 

I SET UP ITERATION COUNT 
.•BRANCH IF DONE 



RESTORE Rl 
RESTORE R4 

GO BACK TO CALLING ROUTINE 
IF DATA ERROR. COUNT NE 0 



JiO 

COKDDAO KDJll DA CLUSTER DIAG. 
DflARD DATI THRU Q22BE 



4361 
4362 
4363 
4364 
4365 
4366 
4367 

4368 026772 

4369 026772 

4370 026776 

4371 027002 

4372 027004 
4373 

4374 027006 

4375 027014 
4376 

4377 027020 
4378 

4379 027024 
4380 

4381 027030 
4382 

4383 027034 

4384 027036 

4385 027040 
4336 

4387 027042 

4388 027044 

4389 027046 

4390 027052 
4391 

4392 027056 
4393 
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SEQ 0126 



DELAY - INTERRUPT TIMER 







; This test 


is called by the interrupt 


receiver and transmtter 


013746 
013746 
UIUUho 

010146 


000004 
000006 


6eLAY: 


MOV 
MOV 
MOV 
MOV 


3#4.-(SP) 
3#6.-CSP) 
RO,-(SP) 
Rl.-CSP) 


;SAVE 
: OLD 

STACK 
; AND REGS 


012737 
106737 


027034 000004 
000006 




MOV 
MFPS 


a»6 


•SET TRAP 

IpUT PSU ON PS / SAME PRIORITY 


vie f UU 


AAAAA4 
UUUUUl 




MOV 


#1..R0 


;SET OUTER LOOP COUNT 


012701 


011610 


3$: 


MOV 


#5000 Rl 


sSET INNER LOOP 1/200TH 


005737 


160000 


1$: 


TST 


9«160000 


JAKES ABOUT lOu SEC 


022626 
077104 
077007 




2$: 


CMP 
SOB 
SOB 


(SP)».(SP)» 

Rl.l$ 

R0.3$ 


.•CLEAN UP STACK 
:D0 INNER LOOP 
:D0 OUTER LOOP 


012601 
012600 
012637 
012637 


000006 
000004 




MOV 
MOV 
MOV 
MOV 


(SP)*.R1 
(SP)*.RO 
(SP)*.a#6 

(SP)*.a*4 


: RESTORE 
: WHAT 
UE 

i SAVED 


000207 






RTS 


PC 
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DMARO OATI THRU Q22BE 

4395 
4396 
4397 
4398 
4399 
4400 
4401 

4402 027060 

4403 027060 012737 000000 172340 

4404 027066 012737 000200 172342 

4405 027074 012737 000400 172344 

4406 027102 012737 000600 172346 

4407 027110 012737 001000 172350 

4408 027116 012737 001200 172352 

4409 027124 012737 001400 172354 

4410 027132 012737 177600 172356 

4411 027140 012702 000010 

4412 027144 012701 172300 

4413 027150 012721 077406 

4414 027154 077203 

4415 027156 012737 000001 177572 

4416 027164 012737 000020 172516 

4417 027172 000207 



SEQ 0127 



SETMHU - SET UP THE HMU REGISTERS 

This test is called by the memory test to set up the PARS so 
ail of memory is accessed 



SeTMMU: 



10$: 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MO 

MOV 

MOV 

MOV 

SOB 

MOV 

MOV 

RTS 



#0.3#KIPAR0 

*2dO,a*KIPARl 

*400.a#KIPAR2 

«600.S«KIPAR3 

#1000.8#KIPAR4 

#1200,8*KIPAR5 

#1400.3*KIPAR6 

«177660,S#KIPAR7 

#10. R2 

#KPDR0,R1 

#77406, (RD* 

R2.10$ 

#l.ia#SRO 

#BlT4.a#SR3 

PC 



SUBR SET UP MMU REGISTERS 

POINT TO PAGE 0 TO ITSELF 

POINT TO PAGE 

POINT TO PAGE 

POINT TO PAGE 

POINT TO PAGE 

POINT TO PAGE 



POINT TO PAGE 



TO ITSELF 
TO ITSELF 
TO ITSELF 
TC ITSELF 
TO ITSELF 
TO ITSELF 



POINT I/O PAGE TO IT'S PLACE IN 22 BIT 
DuNDO 

: SET UP PDR'S TO 4K R/U 

OOUNTIL UE HAVE INITIALIZED ALL OF THEM 
ENABLE MEMORY MANAGEMENT 
ENABLE 22 BIT ADDRESSING 
ENDSUBR SET UP MMU REGISTERS 



COKODAO KOJll-OA CLUSTER DIAG. 

OHARO OATI THRU Q22BE 

4419 

4420 

4421 

4422 

4423 

4424 

4425 

4426 

4427 

4428 

4429 

4430 

^431 

4*32 

4433 

4434 

4435 

4436 

4437 

4438 027174 

4439 027174 012737 001600 

4440 027202 012701 040000 

4441 027206 

4442 027206 112711 177777 

4443 027212 005201 

4444 027214 020127 060000 

4445 027220 103413 

4446 027222 '(-2161 000200 

4447 027230 0^2701 160000 

4448 027234 052701 040000 

4449 027240 023727 172344 

4450 027246 001444 

4451 027250 112711 000000 

4452 027254 005201 

4453 027256 02012/ 060000 

4454 027262 103415 

4455 027264 062737 000200 

4456 027272 042701 160000 

4457 027276 052701 040000 

4458 027302 023727 172344 

4459 027310 001422 

4460 027312 112711 000000 

4461 027316 005201 

4462 027320 020127 060000 

4463 027324 103730 

4464 027326 062737 000200 

4465 027334 042701 160000 

4466 027340 052701 040000 

4467 027344 023727 172344 

4468 027352 001401 

4469 027354 000714 

4470 027356 

4471 027356 000207 
4472 

4474 
4474 
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SEQ 0128 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
INIMEM - FILL UP HEMORY 

This test is called by the Quick verify memory test. It initializes 
memory to look like the follow 'ng. 



Address 

6 

1 

2 
3 
4 
5 



172344 



tNIMEM: 



10$: 



172344 
020000 

172344 
020000 

172344 

020000 



20$: 



30$: 



40$: 
50$: 



Data 

377* 

0 

0 

377 

0 

0 



MOV *1600.3#KIPAR2 

MOV #40000, Rl 

MOVB #-l,(Rl) 

INC Rl 

CMP Rl, #60000 

BLO 20i 

ADD #200.3#KIPAR2 

BIC *160600.R1 

BIS #40000. ft 1 

CMP a#KIPAft2. #20000 

6EQ 40$ 

MOVB #0.(R1) 

INC Rl 

CMP Rl, #60000 

BLO 30$ 

ADD #200,8#KIPAR2 

BIC #160600.R1 

BIS #40000.ftl 

CMP 8#KIPAft2. #20000 

BEQ 40$ 

MOVB #0.(R1) 

INC Rl 

CMP Rl, #60000 

BLO 10$ 

ADD #200,8#KIPAR2 

BIC #160000.R1 

BIS #40000. ft 1 

CMP a#KIPAft2. #20000 

BEQ 40$ 

BR 10$ 

RTS PC 



SUBR INITIALIZE MEMORY 
POINT KPAR2 TO LOW ADDRESS 
SET VIRTUAL ADDRESS TO MAP THRU KPAR2 
6GND0 

WRITE A -1 TO 0 OFFSET ADDRESS 



IF WE HAVE PASSED THE PAGE BOUNDARY 
THEN 

POINT KPAR2 TO A NEW PAGE 
aEAR OUT THE PAGE POINTER 
POINT VIRTUAL ADDRESS tq KPAR2 
ENOIF 

DOUNTIL WE HAVE READ ALL ADDRESSES 
WRITE A 0 TO 1 OFFSET ADDRESS 

IF WE HAVE PASSED THE PAGE BOUNDARY 
THEN 

POINT KPAR2 TO A NEW PAGE 
CLEAR OUT THE PAGE POINTER 
POINT VIRTUAL ADDRESS TO KPAR2 
ENOIF 

DOUNTIL WE HAVE READ ALL ADDRESSES 
WRITE A 0 TO 2 OFFSET ADDRESS 
BUMP UP ADDRESS BY 3 
IF WE HAVE PASSED THE P^CF BOUNDARY 
THEN 

POINT KPAR2 TO A NEW PAGE 
CLEAR OUT THE PAGE POINTER 
POINT VIRTUAL ADDRESS TO KPAR2 
ENOIF 

DOUNTIL WE HAVE READ ALL ADDRESSES 



ENOIF 

ENOSUBR INITIALIZE.MEMORY 



M X 0 

COKDDAO KDJll DA CLUSTER DIAG. riACRO V05.03 Tuesday 07-Jan-86 15:18 Page 47 
OMARD DATI THRU Q22BE 



SEQ 0129 



4476 
4477 
4478 
4479 
4480 
4481 
4482 
4483 
4484 
4485 
4486 
4487 
4488 
4489 

4490 027360 

4491 027360 

4492 027366 

4493 027372 

4494 027376 

4495 027400 

4496 027400 

4497 027402 

4498 027406 

4499 027410 

4500 027416 

4501 027422 

4502 027426 

4503 027434 

4504 027436 

4505 027440 

4506 027442 

4507 027444 
A508 027446 

4509 027452 

4510 027456 

4511 027462 
451? 027464 

4513 027466 

4514 027466 

4515 027470 

4516 027470 

4517 027472 

4518 027476 

4519 027500 

4520 027506 

4521 027512 

4522 027516 

4523 027524 

4524 027526 

4525 027530 



012737 
012701 
012702 
160402 

060401 
020127 
103413 
062737 
042701 
052701 
023727 
001435 
005703 
001012 
120511 
001411 
010537 
11113-' 
010137 
104066 
000401 

110511 

060201 
020127 
103740 
062737 
042701 
052701 
023727 
001401 
000724 
000207 



RUTMEM - READ OR WRITE TO THE MEMORY 



This test is called by the Quick verify memory test to Read or 
Write to memory. 

R3 = OPERATION TO BE PERFORMED 

0 • READ 

1 - WRITE 



R4 = THE ADDRESS INCREMENT 
R5 = THE EXPECTED PATTERN 



001600 
040000 
000003 



060000 

000200 
160000 
040000 
172344 



001124 
001126 
001122 



172344 



ftWTMEM: 



10$; 



172344 

020000 



15$: 



20$: 
30$: 



060000 

000200 
160000 
040000 
172344 



172344 

020000 



40$: 



MOV *1600.a«KIPAR2 

MOV #40006,R1 

MOV «,R2 

SUB R4.R2 

ADD R4,R1 

CMP Rl, #60000 

BLO 15i 

ADD «200.3«KIPAR2 

BIC #160600.R1 

BIS #40000.ftl 

CMP 8*KIPAR2, #20000 

6EQ 40$ 

TST R3 

BNE 20$ 

CMPB R5,(R1) 

BEQ 30i 

MOV R5,$G00AT 

MOVB (R1).$BD0AT 

MOV R1,$60A0R 

ERROR *f>^ 

BR 30$ 

MOVB R5,(R1) 

ADD R2.R1 

CMP Rl, #60000 

BLO lOJ 

ADD #200.3«KIPAR2 

BIC #160600.R1 

BIS #40000.(^1 

CMP S#KIPAft2. #20000 

BEQ 40$ 

BR 10$ 

RTS PC 



SUBR READ WRITE MEMORY 
POINT TQ'KPAR2"T0 LOW ADDRESS 
POINT TO PAGE 2 VIRTUAL ADDRESS 
WE ARE BUMPING UP BY 3 
SUBTRACT OFF ADDRESS INCREMENT 
BGNDO 

GET ADDRESS TO LOOK AT 
IF UE HAVE PASSED THE PAGE BOUNDARY 
THEN 

f-OINT KPAR2 TO A NEW PAGE 
CLEAR OUT THE PAGE BITS 
SET THEM BACK TO PAGE 2 
ENOIF 

IF THE QPERMION IS A READ 
THEN 

IF CONTENTS <> EXPECTED PATTERN 
THEN 

GET THE EXPECTED PATTERN 
GET THE RECIEVED PATTERN 
GET THE VIRTUAL ADDRESS 
ERROR IN MEMORY 

ENDIF 

ELSE 

WRITE PATTERN TO MEMORY 
ENDIF 

ADD ON DIFFERENCE TO GET ADDRESS* 3 
IF WE HAVE PASSED THE PAGE BOUNDARY 
THEN 

POINT KPAR2 TO A NEW PAGE 
CLEAR OUT THE PAGE 3ITS 
SET PAGE BUS BACK TO PAGE 2 
. ENDIF 

OOUNTIL WE HAVE READ ALL ADDRESSES 
ENDSU6R READ WRITE MEMORY 



NIO 

' COKODAO KOJll-OA CLUSTER OIAG. 
WARD OATI THRU Q22BE 



4527 
4528 
4529 
4530 
4531 
4532 
4533 
4534 
4535 
4536 



HACRO V05.03 Tuesday 07 -Jan -86 15:18 Page 48 



'.EQ 0130 



027532 
027532 

4537 027540 

4538 027544 

4539 027544 

4540 027550 

4541 027556 

4542 027560 

4543 027566 

4544 027572 

4545 027574 

4546 027576 

4547 027602 

4548 02/e04 

4549 027612 

4550 027616 

4551 027622 

4552 027630 

4553 027632 
^554 027636 

4555 027644 

4556 027646 

4557 027654 

4558 027660 

4559 027662 

4560 027666 

4561 027672 

4562 027674 

4563 027702 

4564 027706 

4565 027712 

4566 027720 

4567 027722 

4568 027724 
4569 



RRMEM - READ THE MEMORY 



This test is called by the memory test write to memory 

R4 = THE ADDRESS INCREMENT 
R5 » THE EXPECTED PATTERN 



ftRMEM: 



012737 


AA 4 ^ AA 

001600 


4 ^ A9 M M 

172344 




MOV 


012701 


040000 




4 A A 

10$: 


MOV 


111137 


001126 






uA \ m 

MOvB 


122737 


ill (11 


AA4 4 A^ 

001126 




CMPB 


001406 








DC A 

BEQ 


012737 


llllll 


001124 




MOV 


A4 A 1 

010137 


AA 1 1 AA 

001122 






MOv 


104066 








ERROR 


005201 






15$ : 


INC 


A^ A 4 

020127 


060000 






crir 


103413 








Ol A 

BLO 


Obdfif 




172344 




Af\A 

ADD 


\JH d (01 


1 ^ AAAA 






DlL 


AC T7 A 1 

052/01 


AX AAAA 

040000 






DT C 


025 (id 1 


1 ( do'^'* 


A AAAA 




Lnr 












111137 


001126 




20$: 


MOVB 


122737 


imi 


001126 




CMPB 


001406 








BEQ 


112737 


177777 


001124 




MOVB 


011137 


001122 






MOV 


104066 








ERROR 


062701 


000002 




30$; 


ADO 


020127 


060000 






CMP 


103724 








BLO 


062737 


000200 


172344 




ADD 


042701 


160000 






BIC 


052701 


040000 






BIS 


023727 


172344 


020000 




CMP 


001401 








BEQ 


000710 








BR 


000207 






40$: 


RTS 



«1600.9«KIPAR2 
«40006.R1 

(R1),$BDDAT 

#-i.Jbddat 

15$ 

#-1,$GDDAT 

RlJSDADR 

^66 

Rl 

Rl, #60000 
20 J 

#200.a*KIPAR2 

*160600.R1 

*40000.ftl 

9«KIPaA2.«20000 

40$ 

CR1?,$BDDAT 

*-l.iBDOAT 

30$ 

#-l.$GOOAT 
(Rl 3. $80 ADR 
*be 
«2.R1 
Rl, #60000 
10 i 

«00.8#KIPAR2 

#160600.R1 

#40000.ftl 

9«KIPAR2. #20000 

40$ 

10$ 

PC 



SUBR READ LOCATIONS 0.1 
LET PAR POINT TO .OU ADDRESS 
POINT TO KPAR2 VIRTUAL ADDRESS 
BGNDO 

GET A COPY OF RECIEVED PATTERN 
IF 0 OFFSET ADDRESS o -l THEN 

ERROR IN MEMORY 
GET THE EXPECTED PATTERN 
GET THE VIRTUAL ADDRESS 



POINT TO 1 OFFSET ADDRESS 
IF UE HAVE PASSED THE PAGE BOUNDARY 
THEN 

POINT KPAR2 TO A NEW PAGE 
CLEAR THE PAGE BITS 
POINT BACK TO PAGE 2 
ENOIF 

GET THE RECIEVED PATTERN 

IF 1 OFFSET ADDRESS <> -1 THEN 

ERROR IN MEMORY 
GET THE EXPECTED PATTERN 
GET THE VIRTUAL ADDRESS 



ADD 2 TO ADDRESS TO GET ADDRESS ♦ 3 
IF UE HAVE PASSED THE PAGE BOUNDARY 
THEN 

POINT KPAR2 TO A NEW PAGE 
CLEAR THE PAGE BITS 
POINT BACK TO PAGE 2 
ENDIF 

DOUNTIL UE HAVE READ ALL ADDRESSES 



ENOSUBR READ.LOCATIONS.O.l 
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SEQ 0131 



45"'! 
4575 

457! 
4574 
4575 
4376 
4577 
4578 
4579 
4580 
4581 
4582 
4583 
4584 
4585 
4586 
4587 
4588 
4589 
4590 
4591 
4592 
4593 



4594 027726 








4.95 027726 


104401 


027734 




4596 027732 


000207 






4597 








4598 027734 
027737 


105 


122 


122 


117 


122 


040 


027742 


104 


105 


124 


02/745 
027750 


105 


103 


124 


105 


104 


040 


027753 


111 


116 


040 


027756 


112 


061 


061 


027761 


040 


106 


114 


027764 


117 


101 


124 


027767 


111 


116 


107 


027772 


040 


120 


117 


027775 


111 


116 


124 


030000 


040 


120 


122 


030003 


117 


103 


105 


030006 


123 


123 


117 


030011 


122 


056 


000 



4599 
4600 



SUBROUTINE - DETERMINE FLOATING POINT ACCELERATOR (DETFPA) 

FLOATINg'^POINtSeSTs'^'"'"^^ ^^^^^ DETECTED DURING EXECUTION OF THE 

IT DETERMINES UHEATHER OR NOT THE FLOATING POINT ACCELERATOR CHIP OPTION 
IS PRESENT ON THE CPU BOARD AND PRINTS THE APPROPRIATE ERROR MESSAGE 
THIS DETERMINATION IS MADE BASED ON THE "FPA AVAILABLE" FLAG. BIT 8 
OF THE MAINTENANCE REGISTER AT LOCATION !7777750. IF THE FPA BIT IS SET 
THEN THE FLOATING POINT ACCELERATOR CHIP iS INSTALLED ON THE CPU BOARD AND 
AN ERROR MESSAGE IS PRINTED WHICH STATES THAT THE FLOATING POINT ERROR IS 
DUE TO THIS CHIP. OTHERWISE. THE Jll IS BLAMED FOR THE FLOATING POINT ERROR. 

$$$ 



called by: call 
inputs: none 
outputs: error messages 
iJetfpa 



TYPE 
RTS 



.JllFLT 
^C 



9«DETFPA :$$$ 
•Mi 
Mi 



$$$ 
$$$ 



JllFLT: .ASCIZ /ERROR DETECTED IN Jll FLOATING POINT PROCESSOR./ : $$$ 



.EVEN 
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SEQ 0132 



4603 
4604 
4605 



4606 



050014 

030014 

030022 

030024 

030030 

030034 

030040 

030044 

030052 

030054 

030056 

030060 

030062 

050064 

030066 

010072 

020076 

030100 

030104 

030110 

030112 

030114 

030116 

030120 

030122 

030124 

030124 

030126 

030130 

030133 

030136 

030141 

030144 

030147 



032737 
001030 
004537 
005037 
005037 
005237 
042737 
005327 
000001 
003022 
012737 
000001 
030054 
104401 
013746 
104405 
104401 
013700 
001405 
000005 
004710 
000240 
000240 
000240 

000137 
005060 
377 
015 
116 
120 
123 
000 



000100 000052 



016256 
001102 
001164 
001206 
100000 



030133 
001206 

030130 
000042 



377 
012 
104 
101 
04C 



001206 



000 
105 
040 
123 
043 



.SBTTL END OF PASS ROUTINE 

:;***************t *************************************** 

:*INCREMENT_THE_PASS.NyMBER (JPASS) 



:*INDICATE ENO-QF-PROGRAM AFTER 
:*TYPE "END PASS #XXXXX" (UHERE 
:*IF THERES A MONITOR GO TO IT 
THERE ISN'T JUMP TO LOOP 



1 PASSES THRU THE PROGRAM 
XXXXX IS A DECIMAL NUMBER) 



:*IF 

iEOP 



$EOPCT: 



$ENOCT! 



$GET42: 



$ENOAD: 



$OOAGN: 

$RTNA0: 
$ENULL: 
$ENDMG: 



BIT 
BNE 
jsr 
CLR 
CLR 
INC 
BIC 
DEC 
.UORO 
BGT 
MOV 
.UORO 
$E0PC'^ 
TYPE 
MOV 
TYPDS 
lYPE 
MOV 
6EQ 
RESET 
JSR 
NOP 
NOP 
NOP 

JMP 
.UORO 
.BYTE 
.ASCIZ 



«6IT06,9«52 
$GET42 
rS.v ireop 
JTSTNM 
JTIMES 
$PASS 

#100000. $PASS 
(PC)* 
1 

$D0AGN 

(PC)*.8(PC)* 
1 



,$ENDMG 
JPASS.-(SP) 



;ZERO THE 
:ZER0 THE 



TEST NUMBER 



NUMBER OF 



FERATIONS 

NUMBER 

NUMBER 



.JENULL 
W42.ro 

$ooa6n 

PC.(RO) 



; increment THE PASS 
: DON'T ALLOU A NEG. 
;LOOP? 

• - YES 

!! RESTORE COUNTER 



TYPE "END PASS #" 

SAVE $PASS FOR TYPEOUT 

GO TYPE-DECIMAL ASCII UITH SIGN 

TYPE A NULL CHARACTER 

GET MONITOR ADDRESS 

BRANCH IF NO MONITOR 

CLEAR THE UORLO 

CO TO MONITOR 

SAVE ROOM 

FOR 

ACTU 



a(PC)* : 
LOOP 

<l§i<i2>/EN0 PAsi 



RETURN 

NULL CHARACTER STRING 



030150 

030150 104407 



.SBTTL 

::*♦** 

:*THIS 

;*AN0 

:*AN0 

;*THE 

;*SU14 

:*SU11 

;*SU09 

:*SU08 

:*CALL 

$ SCOPE 



SCOPE HANDLER ROUTINE 

********************** A* 

ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT UILL INCREMENT 
LOAD THE TEST NUMBERCJTSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>) 
LOAD THE ERROR FLAG UERFLG) INTO DISPLAY<15:08> 
SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
=1 LOOP ON TEST 

=1 INHIBIT ITERATIONS 

=1 LOOP ON ERROR 

=1 LOOP ON TEST IN SUR<5:0> 



SCOPE 
CKSUR 



;;SCOPE=IOT 

;;TEST FOR CHANGE IN SOFT-SUfi 
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SEQ 0133 



030152 052737 001000 177520 
030160 032777 040000 150^52 
030166 001117 



030170 000416 



4607 



030172 

030176 

030204 

030210 

030214 

030216 

030220 

030224 

030226 

030226 

030234 

030236 

030242 

030246 

030252 

030254 

050260 

030362 

0302 /O 

030272 

030300 

030302 

030310 

030312 

030316 

030322 

030324 

030332 

030334 

03C34C 

030342 

030346 

030354 

n?0356 

030364 

030372 

030376 

030404 

030410 

030414 

030420 

030426 

030434 

030440 

030446 

030450 



013746 
012737 
005737 
012637 
000466 
022626 
012637 
000426 

032777 
001407 
017746 
042716 
122637 
001465 
105737 
001421 
1237-7 
10!015 
032777 
001404 
0137!^ 
000446 
105037 
005037 
000415 
032777 
001011 
005737 
001406 
005237 
023737 
002024 
012737 
013737 
105237 
113737 
011637 
011637 
005037 
112737 
013777 
013716 
042737 
000002 
000001 



000004 

030216 000004 

177060 

000004 



000004 



000400 150704 

150676 
000300 
001102 



0011C3 

001115 

001000 

001110 

001103 
001164 

004000 

001206 

001104 
001164 

OOOOOi 
030450 
001102 
001102 
001106 
001110 
001166 
000001 
001 J 02 
001106 
001000 



001103 
150640 
001106 



001104 

001104 
001164 

001204 



001115 
150506 

177520 



Bio #1000.BCSR jENABLE 
li: BIT «6lT14.aSUR ;; LOOP ON PRESENT 

BNt $OVER ::YES IF SU14=1 

#***ftSTAftT OF CODE FOR THE XOR tfSTER«### 



TEST? 



JxTSTR: BR 



5$: 



6$: 



2$: 



7$; 
4$; 



150606 3$: 



1$: 

$SVLAO: 



$OVER: 



6$ 

HOV a«ERRVEC.-(SP) 

MOV #5$.a#ERftVEC 

TST a#177060 

MOV (SP)*.a#ERRVEC 

BR )SVLA0 

CMP (SP)t.(SP)t 

MOV (SF)».a<>ERRVEC 

BR 7$ 

#*END OF CODE FOR THE XOR 

BIT «6IT08.aSUR 

BEQ 2$ 

MOV aSUR.-(SP) 

BIG «$SuftMK.(SP) 

CMPB (SP)*,$tSTNM 

BEQ $GVER 

TSTB $ERFLG 

BEQ 3$ 

CMPB $ERMAX.$ERFLG 

BHI 3J 

BIT »BIT09.9SUR 

BEQ 4$ 

MOV $LPERR.$LPAOR 

BR $OVER 

CLRB $ERFLG 

CLR ITIMES 

BR 1$ 

BIT ^eiTll.aSUR 

BNE 1$ 

TST $PASS 

BEQ ii 

INC JICNT 

CMP $TIMES.$ICNT 

6GE $OVER 

MOV #1, JICNT 

MOV »MXCNT,$TIMES 

INCB JTSTNM 

MOVB JTSTNM.*TESTN 

MOV (SP),JLPAOR 

MOV (SP),*LPERR 

CLR $ESCApE 

MOVB *1.$ERMAX 

MOV $T§TNM.30ISPLAY 

MOV $LPAOR.(SP) 
BIC #1000. BCSR {DISABLE 
RTI 



IF RUNNING ON THE "XOR' TESTER CHANGE 
THIS INSTRUCTION TO A 'NOP" (N0P=240) 

l^'fl'^iW * '* "^""^ 

TIME OUT ON XOR? 

RESTORE THE ERROR VECTOR 

GO TO THE NEXT TEST 

CLEAR THE STACK AFTER A TIME OUT 

RESTORE THE ERRf'R VECTOR 
.LOOP ON THE PRESENT TEST 
TESTER***** 

LOOP ON SPEC. TEST? 

BR IF NO 

SET DESIRED TEST NUM. FROM SUR 
STRIP AWAY UfiDESIRED BITS 
ON THE RIGHT TEST? 
BR IF YES 

HAS AN ERROR OCCURRED? 
BR IF NO 

MAX. ERRORS FOR THIS TEST OCCURRED? 
BR IF NO 
LOOP ON ERROR? 
BR IF NO 

SET LOOP ADDRESS TO LAST SCOPE 

ZERO THE ERROR FLAG 

CLEAR THE NUMBER OF ITERATIONS TO MAKE 

ESCAPE TO THE NEXT TES'^ 

INHIBIT ITERATIONS? 

BR IF YES 

IF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
INCREMENT ITERATION COUNT 
CHECK THE NUMBER OF ITERATIONS MADE 
BR IF MORE ITERATION REQUIRED 
REINITIALIZE THE ITERATION COUNTER 
SET NUMBER OF ITERATIONS TO DO 
COI^T TEST NUMBERS 
SET TEST NltlBER IN APT MAILBOX 
SAVE SCOPE LOOP ADDRESS 
SAVE ERROR LOOP ADDRESS 
CLEAR THE ESCAPE FROM ERROR ADDRESS 
ONLY ALLOU ONE(l) ERROR ON NEXT TEST 
DISPLAY TEST NUMBER 
FUDGE RETURN ADDRESS 



1 

ERROR HANDLER ROUTINE 



:;MAX. NUMBER OF ITERATIONS 



$MXCNT: 
.SBTTL 

; ; ************************************** 

;*THIS ROUTINE UILL INCREMENT THE ERROR FLAG AND ^SE ERROR COUNT. 
:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF Th£ ERROR CALL 
;*AND GO TO ERTYPE ON ERROR 
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*THE SUITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 



SEQ 01Z4 



*SU15=1 
*SU13=1 
*SU10=1 
*SU09=1 
*CALL 



03045? 








i ERR OR • 


FRRQR 


0304 5P 


OOS737 








TST 


030456 


001403 








BEQ 


030460 

VT WV 


005000 








CLR 


030462 


004737 


030674 






JSR 


030466 












030466 


104407 








CKSUR 


030470 


052737 


001000 


17"'520 




BIS 


030476 


105237 


001103 




7J: 


INC6 


030502 


001775 








BEQ 


030504 


013777 


001102 


150430 
150420 




nov 


030512 


032777 


002000 




BIT 


030520 

V w V ^ W V 


001402 








BEQ 


030522 


104401 


001170 






TYPE 


030526 


005237 


001112 




1$: 


INl. 


030532 


011637 


001116 






nov 


030536 

V V V V w W 


162737 


000002 


001116 




SUB 


030544 


117737 


150346 


001114 




MOVB 


030552 


032777 


020000 


150360 




BIT 


030560 


001004 








BNE 


030562 


004737 


025230 






JSR 


030566 

\r w V ^ V V 


104401 


001175 






TYPE 


030572 








20$: 




030572 


122737 


000001 


001220 




CMPB 


030600 

www w 


001007 








BNE 


030602 


113737 


001114 


030614 




MOVB 


030610 


004737 


031052 






JSR 


030614 


000 






21$: 


BYTE 


030615 


000 








BYTE 


030616 


000777 






22$- 


6R 


030620 


005777 


150314 




2$ : 


TST 


030624 


100002 








BPL 


030626 


000000 








HALT 


030630 

V W V W W w 


104407 








CKSUR 


030632 

W w w w w t 


032777 


001000 


150300 


3$: 


BIT 


030640 

V W W V • w 


001402 








BEQ 


030642 


013716 


001110 






HOV 


030646 


005737 


001166 




4$: 


TST 


030652 


001402 








BEQ 


030654 


013716 


001166 






MOV 


030660 








5$: 




030660 


022737 


030114 


000042 




CMP 


030666 


001001 








BNE 


030670 


000000 








HALT 


030672 








6$: 




030672 


000002 






.SBTTL 


RTI 
ABORT 


030674 


005737 


004146 




ABORT: 


TST 


030700 


001454 








BEQ 


030702 


020027 


000032 






CMP 



HALT ON ERROR 
INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 
LOOP ON ERROR 

♦N :iERROR«EMT AND N=ERROR ITEM NUMBER 

UQUIET ;; TEST FOR USER-QUIET HODE 

9$ ; -.BRANCH IF FIELD-SERViCE MODE 

RO ;;IN CASE RO HAS A #3 IN IT (tC) 

PC. ABORT ;;TEST FOR ABORT CONDITION 



SIOOO.BCSR 

$ERFLG 

7$ 

$TSTNM.aDISPLAY 

«BIT10.aSUR 

1$ 

,$BELL 

iERTTL 

{SP).$CRRPC 

#2.$tRRPC 

a$tRRPC,$ITEMB 

#BITl3.aSUR 

20$ 

PC.ERTYPE 
.$CRLF 

*APTENV.$ENV 
2$ 

$ITEMB.21$ 

PC.$ATY4 

0 

0 

22$ 

asuR 

3$ 



#BIT09.SSWR 
4$ 

$LPERR,(SP) 

$ESCAPf 

5$ 

JESCAPE.CSP) 



«$ENDAD.3$42 
6$ 



UFDFLG 
N0A6RT 
R0,#32 



siTEST FOR CHANGE IN SOFT-SUR 
;ENABLE HALT ON BREAK 
SET THE ERROR FLAG 
DON' T LET THE FLAG GO TO ZERO 
DISPLAY TEST NW1BER AND ERROR FLAG 
BELL ON ERROR? 
NO - SKIP 
RING BELL 

COUNT THE NUMBER OF ERRORS 
GET ADDRESS OF ERROR INSTRUCHON 



STRIP AND SAVE THE ERROR ITEM CODE 

SKIP TYPEOUT IF SET 

SKIP TYPEOUTS 

GO TO USER ERROR ROUTINE 



RUNNING IN APT MODE 

NO.SKIP APT ERROR REPORT 

SET ITEM NUMBER AS ERROR NIWBER 

REPORT FATAL ERROR TO APT 



APT ERROR LOOP 

HALT ON ERROR 

SKIP IF CONTINUE 

HALT ON ERROR! 

TEST FOR CHANGE IN SOFT-SUR 

LOOP ON ERROR SUITCH SET? 

BR IF NO 

FUDGE RETURN FOR LOOPING 
CHECK FOR AN ESCAPE ADDRESS 
BR IF NONE 

FUDGE RETURN ADDRESS FOR ESCAPE 

ACT- 11 AUTO- ACCEPT? 
BRANCH IF NO 

YES 

iRETURN 

6n ufd mode 

test for user friendly mode 

if not ufd then continue normal operation 

IS IT A tZ ? 
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4608 



030706 


001443 








A r" A 

BEQ 


A 7 A ^ 4 A 

030710 


A A A A ^T 

020027 


AA AA AT 

000003 






CMP 


030714 


001404 








n r" A 

BEQ 


030716 


AAr T T T 

005737 


A A M 4 Cf\ 

004150 






TST 


030722 


AA 4 M 

001443 








n r A 

BEQ 


A f AT^ il 

030724 


A A A ii A A 

000422 








on 

BR 


A '5 A T 

030726 


A « T T T 

013737 


A A Jl 4 4 A 

004142 


A A A A T A 

000030 


Jl A AA T A 

ABORTC: 


MOV 


030734 


013737 


004144 


A A AAT A 

000032 




MOV 


030742 


104043 








EMI 


A7 A^ Jl H 

030744 


J ACT AA 

105720 






1> : 


T f* Tn 

TSTB 


AT AT Jl /■ 

03074G 


AA 4 T TZ" 

001376 








BNE 


030750 


4 4 AT^ A 

112760 


A AAAC T 

000057 


177777 




u A un 

MOVB 


AT AT 

030756 


4 4 AT A 

112720 


AAA4 Tf 

000136 






U Al JD 

MOVB 


AT AT ^ 

030762 


« 4 ATAA 

112720 


AAA 4 AT 

000103 






MOVB 


AT AT ^ ^' 

030766 


4 Af A 4 A 

105010 








Al AD 

CLRB 


A7 AT TA 

030770 


AAAJI « A 

000412 








BR 


AT AT T'^ 

030772 


A 4 T TTT 

013737 


A A il 4 J| A 

004142 


AAAATA 

000030 


AoOnIc : 


nOV 


r\X 1 AAA 


A1 7777 
015/5' 




AAAA75 




Hnw 
nuv 


031006 


104042 








EMT 


AT 4 A 4 A 

031010 


A4 1T£A 

012760 


i 7 7T 77 


AA AA>I 

000042 




MOV 


A7 \ f\ \ L 

031016 


A 4 TTAA 

015700 


AA AA A '5 

000042 




ABORTZ: 


MOV 


AT 1 A O 


AACA77 

00505/ 


AAAA/I 

000042 






CLR 


ATI AO£. 

031026 


AAAi 77 

000157 


A7A1 1 A 

030114 






JMP 


021Uo2 


AAA^A7 






NOABRT: 


RTS 










.SBTTL 


APT 












A7 1 ATil 

051034 


1 1 1777 

112/5/ 


AAAAA1 

000001 


A7 1 7AA 
051500 


JATYl: 


MOVB 


AT 4 A Jl O 

031042 


112/37 


AAAAA1 

000001 


A7 1 07£ 

0312 lb 


$ATY3: 


MOVB 


A"? 4 ACA 

031050 


AAAJI AT 

000403 








BR 


AT 1 AC'^ 

031052 


112737 


AAAAA1 

000001 


A7 1 TAA 
031300 


$ATY4: 


MOVB 


AT \ f\Cf\ 

051060 








$ATYC: 




AT 4 A£ A 

031060 


A1 AAil£ 

010046 








MOV 


AT 4 A^ 

031062 


A 4 A 4 AC 

010146 








MOV 


A7 4 /\C A 

031064 


1 AC7T7 

105/57 


A7 1 07£ 

031276 






TSTB 


A7 1 ATA 
0510 (0 


AA i A CA 

001450 








BEQ 


AT 4 ATI 

031072 


1 177T7 

12273/ 


AAAAA1 
000001 


AA1 HA 

001220 




CMPB 


A7 4 1 AA 

051100 


AA 1 AT 1 

001051 








BNE 


a7 1 1 a*^ 

051102 


1 T7777 

152/5/ 


AAA1 A A 
000100 


AA 1001 

001221 




BITB 


AT 4 4 4 A 

031110 


AA 4 A 

001425 








BEQ 


AT 1 1 1 

031112 


A 1 1C AA 
01 /600 


AAAAAil 
000004 






MOV 


A7 111^ 

031116 


062/66 


AAAAA'i 
000002 


AAAAA>! 
000004 




ADO 


A7 4 4 

031124 


AAC7T7 

00573/ 


AA1 OAA 
001200 




1$: 


TST 


AT 4 4 TA 

031130 


AA1 7"»C 

0013 rb 








BNE 


AT 1 1 T*^ 

031132 


A1 AA77 
01003 / 


AA i A 

001214 






MOV 


AT 1 1 TC 

031156 


1 AC7'^A 

105720 






2$: 


TSTB 


AT 1 1 ^ A 

051140 


AA1 7 7£ 

0013 to 








BNE 


A7 1 1 >n 
051142 


i ^ 77 AA 

163 rOO 


AA1 O 1 il 

001214 






SUB 


A7 i i AC 

051146 


AA^IAA 

006200 








ASR 




Ai nA77 


AA1 01 C 






MOV 


031154 


012737 


000004 


001200 




MOV 


031162 


000413 








BR 


031164 


017637 


000004 


031210 


3$: 


MOV 


031172 


062766 


000002 


000004 




ADD 


031200 


013746 


177776 






MOV 


031204 


004737 


031302 






JSR 


031210 


000000 






4$: 


.UOR 
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SEQ 013S 



ABORTZ 

R0.#3 

ABORTC 

UQUIET 

NOABRT 

ABORTE 

SAV30.30 

SAV32.32 

♦43 

(R0)» 

1$ 

#•/. 1(R0) 

#'t.(RO)* 

#'C,(RO)* 

ABORTZ 
SAV50.30 
SAV32.32 
♦42 

#-1.42(R0) 

a#42,R0 

3«42 

$ENOAO 

PC 

)MMUNICATIONS 

#1.$FFLG 
#1.$MFLG 
$ATYC 
#1.$FFLG 



JUST GO BACK 0 CHAIN IF IT IS (NO ERROR) 
IS IS A tC ? 

BR TO LOAD tC ON XXDP* STACK (NO ERROR) 
TEST FOR USER QUIET MODE 

IF FIELD-SERVICE MODE. CONTINUE NORMAL OPERATION 
BECAUSE FIELD-SERVICE MODE DOES NOT QUIT ON ERROR 
SET DRSERR THEN LEAVE 
RESTORE EMT LOCATION (30) 
RESTORE EMT PRIORITY LOCATION (32) 
GET XXOP STACK LOC. INTO RO FROM MONITOR 
FIND END OF STACK 

LOAD SLASH OVER ZERO 
LOAD UP ARROW 
LOAD C 

MAKE NEW END TO STACK 
NOW LEAVE 

RESTORE EMT LOCATION (30) 
RESTORE EMT PRIORITY LOCATION (32) 
GET DCA LOCATION INTO RO FROM MONITOR 
SET A -1 INTO LOCATION DRSERR IN MONITOR 
AND PUT THE MONITOR RETURN ADDRESS IN RO 
CLEAR MONITOR RETURN FLAG 
RETURN TO MONITOR -DO NOT PUSH STACK HERE 
IF NOTUFD RETURN TO MAINLINE 
ROUTINE 

*************************************** 

:T0 REPORT FATAL ERROR 
;T0 TYPE A MESSAGE 



RO,-(SP) 
Rl.-(SP) 
iMI^LG 
5$ 

*APTENV.$ENV 
3$ 

*APTSPOOL.$ENVM 
3J 

34(SP),R0 
#2.4(S|i) 

jmSgtype 

U 

RO.^MSGAD 

(R6)» 

2$ 

$MSGA0.R0 
RO 

RO,$MSGLGT 

M.$MSGTYPE 

5J 

34(SP).4$ 
#2.4(SI^) 
17)776. (SP) 
PC.$TYPE 
0 



;T0 ONLY REPORT FATAL ERROR 

;PUSH RO ON STACK 

;PUSH Rl ON STACK 

-.SHOULD TYPE A MESSAGE? 

;IF NOT: BR 

; OPERATING mER APT? 

:IF NOT: BR 

; SHOULD SPOOL MESSAGES? 

:IF NOT: BR 

;GET MESSAGE ADDR. 

;:BUMP RETURN ADDR. 
;SEE IF 60NE U/ LAST XMISSION? 
;IF NOT: WAIT 
.•PUT ADDR IN MAILBOX 
:FIND END OF MESSAGE 

;SUB START OF MESSAGE 
;GET MESSAGE LNGTH IN UORDS 
;PUT LENGTH IN MAILBOX 
JELL APT TO TAKE MSG. 

:PUT MSG ADDR IN JSR LINKAGE 
; ;BUMP RETURN ADDRESS 
;PUSH l)t776 ON STACK 
:CALL TYPE MACRO 



Gil 

COKDDAO <DJ11 DA CLUSTER DIAG. 
APT COMMUNICATIONS ROUTINE 



MACRO V05.03 Tuesday 07 -Jan -86 15:18 Page 50-4 



SEQ 0136 



031212 

031212 

031216 

031220 

031224 

031226 

031232 

031234 

031242 

031250 

031254 

031260 

031264 

031270 

031272 

031274 

031276 

031277 

031300 



4609 



105737 
001416 
005737 
001413 
005737 
001375 
017637 
062766 
005237 
105037 
105037 
105037 
012601 
012600 
000207 
000 
000 
000 

000200 
000001 
000100 
000040 



031300 
00J220 
001200 

000004 00120? 

000002 000004 

001200 

031300 

031277 

031275 



5$: 
10$: 



11$: 



12$: 



$MFLG 
$LFLG 
$FFLG 



$FFLG 
12$ 
$ENV 
12$ 

$MSGTYPE 
11$ 

34 (SP).$ FATAL 

#2.4(SP) 

$MSGTYPE 

$FFLG 

$LFLG 

$MFLG 

(SP)*.R1 

(SP)*,R0 

PC 

0 

0 

0 



SHOULD REPORT FATAL ERROR? 
IF NOT: BR 
RUNNING UNDER APT? 
IF NOT: BR 

FINISHED LAST MESSAGE? 
IF NOT: WAIT 
GET ERROR # 

iiBUMP RETURN ADDR. 
TELL APT TO 'MKE ERROR 
CLEAR FATAL FLAG 
CLEAR LOG FLAG 
CLEAR MESSAGE FLAG 
POP STACK INTO Rl 
POP STACK INTO RO 
RETURN 
MESSG. FLAG 
LOG FLAG 
FATAL FLAG 



TSTB 
BEQ 
TST 
BEQ 
TST 
BNE 
MOV 
ADO 
INC 
CLRB 
CLRB 
CLRB 
MOV 
MOV 
RTS 
.BYTE 
.BYTE 
.BYTE 
.EVEN 
APTSIZE=200 
APTENV=001 
APTSPOOL'lOO 
APTCSUP=040 
.SBTTL TYPE ROUTINE 

♦ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
*.THF_ROUTINE WILL INSERT.A NUMBER gF.NyLL_CHARACTERS,AFTER A LINE FEED. 



*N0TE1; 
*N0TE2: 
♦N0TE3! 

♦CALL: 
*1) USING A 



$NyLL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
$FILLC CONTAINS THE CHARACTER TO FILL AFTER. 













TYPE 










|*0R 














TYPE 










;♦ 


MESADR 


031302 


105737 


001157 




ilYPE: 


TSTB 


031306 


100002 








BPL 


031310 


000000 








HALT 


031312 


000430 








BR 


031314 


010046 






1$: 


MOV 


031316 


017600 


000002 






MOV 


031322 


122737 


000001 


001220 




CMPB 


031330 


001011 








BNE 


031332 


132737 


000100 


001221 




BITB 


031340 


001405 








BEQ 


031342 


010037 


031352 






MOV 


031346 


004737 


031042 






JSR 


031352 


000000 






61$: 


.UORD 


031354 


132737 


000040 


001221 


62$: 


BITB 


031362 


001003 








BNE 


031364 


112046 






2$: 


MOVB 


031366 


001005 








BNE 


031370 


005726 








TST 



TRAP INSTRUCTION 
.MESADR 



$TPFLG 
1$ 

3$ 

RO, (SP) 
32(SP).R0 
*APTENV,$ENV 
62$ 

#APTSPOOL.$ENVM 
62$ 

R0.61$ 
PC.$ATY3 

0 

#APTCSUP.$ENVM 
60$ 

(RO)*, (SP) 
4$ 

(SP)* 



;; MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



IS THERE A TERMINAL? 
BR IF YES 

HALT HERE IF NO TERMINAL 

LEAVE 

SAVE RO 

GET ADDRESS OF ASCIZ STRING 

RUNNING IN APT MODE 

NO.GO CHECK FOR APT CONSOLE 

SPOOL MESSAGE TO APT 

NO.GO CHECK FOR CONSOLE 

SETUP MESSAGE ADDRESS FOR APT 

SPOOL MESSAGE TO APT 

MESSAGE ADDRESS 

APT CONSOLE SUPPRESSED 

YES, SKIP T'iPE OUT 

PUSH CHARACTER TO BE TYPED ONTO STACK 

BR IF IT ISN'T THE TERMINATOR 

IF TERMINATOR POP IT OFF THE STAC< 
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TYPE ROUTINE 

0U372 
031374 
031400 
031402 
031406 
031410 
031414 
031416 
031420 
031422 
031424 
031430 
031432 
031436 
031442 
031444 

031450 
031454 
031456 
031462 
031466 

031470 
011474 
031500 
031506 
031510 
031512 
031514 
031514 
031520 
031522 
031526 
031532 
031536 
031540 
031540 
031544 
031546 
031552 
031556 
031562 
031564 
031564 
031566 
031566 
031572 
031574 
031602 
031610 
031612 
031616 
031620 
031626 
031630 
031632 



SEQ 0137 



012600 
062716 
000002 
122716 
001430 
122716 
001006 
005726 
104401 
001175 
105037 
000755 
004737 
123726 
001350 
013746 

105366 
002770 
004737 
105337 
000770 

112716 
004737 
132737 
001372 
005726 
000724 

105777 
100022 
017746 
042716 
122716 
001012 

105777 
100375 
117716 
042716 
122716 
001366 

005726 

105777 
100375 
116677 
122766 
001003 
105037 
000406 
122766 
001402 
105227 
000000 



000002 
000011 
000200 

031632 

031514 
001156 

001154 

000001 

031514 
031632 



000040 
031514 
000007 



147424 

147420 
177600 
000023 



147400 

147374 
177600 
000021 



147356 

000002 
000015 

031632 

000012 



60$: 
3$: 

4$: 



5$; 
6$: 



7$ 



MOV 

ADO 

RTI 

CMPB 

BEQ 

CMPB 

BNE 

TST 

TYPE 

$CRLF 

CLRB 

BR 

JSR 

CMPB 

BNE 

MOV 



DECB 
BLT 
JSR 
DECB 
BR 

:HORIZONTAL TAB 
8$ : MOVB 



031632 



9$: 



$TYPEC; 



101$; 



102$; 
10$: 



JSR 
BUB 
BNE 
TST 
BR 

TSTS 

BPL 

MOV 

BIC 

CMPB 

BNE 

TSTB 

BPL 

MOVB 

BIC 

CMPB 

BNE 

TST 



(SP)t.RO 
*2.(S(i) 

#HT.(SP) 
8$ 

*CRLF.(SP) 
5$ 

(SP)* 



$CHARCNT 
2$ 

PC.$TYPEC 

$FiLLC.(SP> 

2$ 

$NULL.-(SP) 

USD) 
6$ 

PC.$TYPEC 

$CHARCNT 

7$ 

PROCESSOR 
#' ,(SP) 

pc.Itypec 

#7,$CHARCNT 
9$ 

(SP)* 
2$ 

a$TKS 
10$ 

8$TKB.-(SP) 
#177600, (SP) 
#$XOFF,(SP) 
102$ 



a$TI<S 
101$ 

a$TKB.(SP) 
*177660.(SP) 
#$XON,(SP) 
101$ 



147350 
000002 



000002 1$ 



TSTB 
BPL 
MOVB 
CMPB 
BNE 
CLRB 
BR 

CMPB 
BEQ 
INCB 
$CHARCNT:.UORD 



(SP)* 

3$TPS 
10$ 

2(SP),a$TPB 

#CR.2(SP) 

1$ 

$CHARCNT 

$TYPEX 

#LF.2CSP) 

$TY(iEX 

(PC) + 

0 



RESTORE RO 
ADJUST RETURN PC 
RETURN 

BRANCH IF <HT> 



;;BRANCH IF NOT <CRLF> 

;:POP <CR><LF> EQUIV 
;!TYPE A CR AND LF 



CLEAR CHARACTER COUNT 

GET NEXT CHARACTER 

GO TYPE THIS CHARACTER 

IS IT TIME FOR FILLER CHARS.? 

IF NO GO GET NEXT CHAR. 

GET i> OF FILLER CHARS. ' EEDED 

AND THE NULL CHAR. 

DOES A NULL NEED TO BE TYPED? 

BR IP NO -GO POP THE NULL OFF OF STACK 

GO TYPE A NULL 

DO NOT COUNT AS A COUNT 

LOOP 

REPLACE TAB WITH SPACE 
TYPE A SPACE 
BRANCH IF NOT AT 
TAB STOP 

POP SPACE OFF STACK 
GET NEXT CHARACTER 

CHAR IN KYBO BUFFER? 
BR IF NOT 
GET CHAR 

STRIP EXTRANEOUS BITS 
WAS CHAR XOFF 
BR IF NOT 



::WAIT FOR CHAR 



GET CHAR 
STRIP IT 
WAS IT XON? 
BR IF NOT 



;;FIX STACK 

::WAIT UNTIL PRINTER IS READY 



LOAD CHAR TO BE TYPED INTO DATA REG. 
IS CHARACTER A CARRIAGE RETURN? 
BRANCH IF NO 

YES- -CLEAR CHARACTER COUNT 

EXIT 

IS CHARACTER A LINE FEED? 
BRANCH IF YES 
COUNT THE CHARACTER 
CHARACTER COUNT STORAGE 



MJDOOl 
MJDOOl 
MJDOOl 
MJDOOl 
MJDOOl 
MJDOOl 
MJDOOl 
MJDOOl 
MXOOl 
MJDOOl 
MJDOOl 
MJDOOl 
MJDOOl 
MJDOOl 
MJDOOl 
MJDOOl 

: MJDOOl 



-ii 

COKDOAO KDJll-DA CLUSTER DIA6. 
T>PE ROUTINE 

031634 000207 

4610 



031636 
031642 
')31650 
031654 
031660 
031662 
031670 
031676 
031704 
031706 
031710 
031712 
031716 
031720 
031724 
031730 
031734 
031740 
031742 
031744 
031746 
031750 
031752 
031754 
031756 
031760 
031764 
031766 
031772 
031774 
031776 
032000 
032002 



017646 
116637 
112637 
062716 
000406 
112737 
112737 
112737 
010346 
010446 
010546 
113704 
005404 
062704 
110437 
113704 
016605 
005003 
006105 
000404 
006105 
006105 
006105 
010503 
006103 
105337 
100016 
042703 
001002 
005704 
001403 
005204 
052703 
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$TYPEX* RTS PC 

.SBTTL' binary to octal (ASCII) AND TYPE 

♦THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6 -DIGIT 
♦OCTAL (ASCII) NUMBER AND TYPE IT. 

*mP0S-- -ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

NUMBER TO BE TYPED 



SEQ 0158 



000000 
000001 
032063 
000002 

000001 
000006 
000005 



032063 

000006 
032062 
032061 
000012 



032061 



032061 
032063 
032060 



NUM.-(SP) 

N 
M 



* MOV 

* TYPOS 

* .BYTE 

* .BYTE 

* 

*$TYPON- -ENTER HERE TO 
*$TYPOS OR $TYPOC 
♦CALL: 

* MOV NUM,-(SP) 

* TYPON 
♦ 

♦iTYPOC-- -ENTER HERE FOR 
♦CALL: 
♦ 
* 



CALL FOR 



TYPEOUT 
FOR NUMBER 



OF DIGITS TO TYPE 



TO 6 
OR 0 

!:1=TYPE LEADING ZEROS 
;;0»SUPPRESS LEADING ZEROS 



TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 



NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 



TYPEOUT OF A 16 BIT NUMBER 



hYPOS: 



$TYPOC: 
$TYPON: 



032062 
177770 

000060 



1$; 
2$; 



3$; 



4$; 



MOV NUM.-(SP) 
TYPOC 

MOV 3(SP).-(SP) 

MOVB 1(SP).$0FILL 

MOVB (SP)^.$0M00E*1 

ADD »2.iSh 

BR $TYPON 

MOVB #1.$0FILL 

MOVB *6.$0M00E*1 

MOVB «.$0CNT 

MOV R3.-(SP) 

MOV R4.-(SP) 

MOV R5,-(SP) 

MOVB $0M0DEU,R4 

NFG R4 

ADD #6.R4 

MOVB R4.*0M0DE 

MOVB $0FILL.R4 

MOV 12(SP).R5 

CLR R3 

ROL R5 

BR 3$ 

ROL R5 

ROL R5 

ROL R5 

MOV R5,R3 

ROL R3 

DECB $0f10DE 

BPL 7$ 

BIC #177770. R3 

BNE 4$ 

TST R4 

BEQ 5$ 

INC R4 

BIS #'0.R3 



NUMBER TO BE TYPED 
CALL FOR TYPEOUT 
PICKUP THE MODE 
LOAD ZERO FILL SWITCH 
NUMBER OF DIGITS TO TYPE 
ADJUST RETURN ADDRESS 



SET THE 
SET FOR 
SET THE 
SAVE R3 
SAVE R4 
SAVE R5 
GET THE 



ZERO FILL SWITCH 
SIX(6) DIGITS 
ITERATION COUNT 



NUMBER OF DIGITS TO TYPE 



SUBTRACT IT FOR MAX. ALLOWED 
SAVE IT FOR USE 
GET THE ZERO FILL SWITCH 
PICKUP THE INPUT NUMBER 
CLEAR THE OUTPUT WORD 
ROTATE MSB INTO "C" 
GO DO MSB 
FORM THIS DIGIT 



GET LSB OF THIS DIGIT 
TYPE THIS DIGIT? 
BR IF NO 
GET RID OF JUNK 
TEST FOR 0 
SUPPRESS THIS 0? 
BR IF YES 

DON' T SUPPRESS ANYMORE 0 S 
MA<E THIS DIGIT ASCII 
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SEQ 0139 



4611 







UUUU'HJ 


5» : 


DTC 

Bib 


ji m 




1 1 f\TT^ 






nUVb 


K3 ,8? 










T VDC 
1 iKt 


o t 

,oi 


\jic\jcc 


1 r»Q7T7 

lU JO J ( 




7* . 


UtLB 


5ULN 1 










bb 1 




\JJC\J0\J 


\J\JCH\JC 






Ql T 

oL 1 


6$ 










Tkir 
INL 


Hh 










DO 






ftl Otft^ 




o» : 


nuv 


^ CD ^ 1 Qt; 










nuv 


rCDI^ DA 




ftl OfcftT 






nuv 


f CD '\ i 07 


032044 


016666 


00000? 000004 




MO 


CV Or J , H\. Or J 


032052 


012616 








(SP)t.(SP) 


032054 


000002 






n-fj 


032056 


000 




8$: 


BYTE 


0 


032057 


000 






.BYTE 


0 


032060 


000 




$OCNT. 


.BYTE 


0 


032061 


000 




$0FILL: 


.BYTE 


0 


032062 


000000 




$OMOOE: 


.UORD 


0 



MAKE ASCII IF NOT ALREADY 
SAVE FOR TYPING 
GO TYPE THIS DIGIT 
COUN"^ BY 1 
BR IF MORE TO DO 
BR IF DONE 

INSUPF LAST DIGIT ISN'T A BLANK 
GO DO ■'HE LAST DIGIT 
RESTORE K5 
RESTORE R4 
RESTORE R3 

SET THE STACK FOR RETURNING 
RETURN 

STORAGE FOR ASCII DIGIT 
TERMINATOR FOR TYPE ROUTINE 
OCTAL DIGIT COUNTER 
ZERO FILL SWITCH 
..NUMBER OF DIGITS TO TYPE 
SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

♦THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5 -DIGIT 
♦SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
^NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
*S^^P5U"E FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
♦REPLACED WITH SPACES. 



032064 

032064 010046 

032066 010146 

032070 010246 

032072 010346 

032074 010546 

032076 012746 020200 

032102 016605 000020 

032106 100004 

032110 005405 

032112 112766 000055 000001 

032120 005000 

032122 012703 032300 

032126 112723 000040 

032132 005002 

032134 016001 032270 

032140 160105 

032142 002402 

032144 005202 

032146 000774 

032150 060105 

032152 005702 

032154 001002 

032156 105716 

032160 100407 

032162 106316 

032164 103003 

032166 116663 000001 177777 



♦CALL: 
♦ 

ilYPDS: 



MOV NUM.-(SP) 

TYPDS 

MOV RO.-(SP) 

MOV Rl.-(SP) 

MOV R2.-(SP) 

MOV R3,-(SP) 

MOV R5.-(SP) 

MOV #26200. -(SP) 

MOV 20(SP),R5 

BPL li 

NEG R5 

MOVB *• ,1(SP) 

1$: CLR RO 

MOV #$0BLK.R3 

MOVB #' .(RJ)* 

2$. CLR R2 

MOV $DTBL(R0),R1 

3$: SUB R1.R5 

BLT 4$ 

INC R2 

BR 3$ 

4$: ADO R1,R5 

TST R2 

BNE 5$ 

TSTB (SP) 

BMI 7$ 

5$: ASLB (SP) 

BCC 6$ 

MOVB KSP). 1(R3) 



:!PUT THE BINARY NUMBER ON THE STACK 
;sGO TO THE ROUTINE 



PUSH RO ON STACK 

PUSH Rl ON STACK 

PUSH R2 ON STACK 

PUSH R3 ON STACK 

PUSH R5 ON STACK 

SET BLANK SWITCH AND SIGN 

GET THE INPUT NUMBER 

BR IF INPUT IS POS. 

MAKE THE BINARY NUMBER POS. 

MAKE THE ASCII NUMBER NEG. 

ZERO THE CONSTANTS INDEX 

SETUP THE OUTPUT POINTER 

SET THE FIRST CHARACTER TO A BLANK 

CLEAR THE BCD NUMBER 

GET THE CONSTANT 

FORM THIS BCD DIGIT 

BR IF DONE 

INCREASE THE BCD DIGIT BY 1 

ADD BACK THE CONSTANT 
CHECK IF BCD DIGIT =0 
FALL THROUGH IF 0 
STILL DOING LEADING O'S? 
BR IF YES 
MSD? 

BR IF NO 

YES- -SET THE SIGN 
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CUNVcKl dlNARY 


TO DECIMAL AND TYPE ROUTINE 




0521 '4 


052702 


000060 6J • 


SIS 




052702 


000040 7$ • 


□IS 




110223 




MOVB 


A7 OOA^ 


005720 




TST 




020027 


000010 


LnH 


A7 1 /I 


002746 




□ 1 T 

BLT 




003002 




DPT 

BGT 




010502 




nov 




000764 




DO 




105726 


8$: 


TCTD 

IbiB 




100003 




DDI 

BrL 




116663 


177777 177776 


nOVB 


A7007£ 


105013 


9$: 


n DO 
CLRd 




012605 




nuv 




012603 




nuv 




012602 




MAW 
MOV 


A7 00A£ 


012601 




MA\/ 

nuv 




012600 




MAV/ 

nuv 


Kjidd^d 


104401 


032300 


TVDC 

1 Trt 


Uodt: DO 


016666 


000002 000004 


nuv 




012616 




Mnv/ 

nuv 




000002 




RTI 


052270 


023420 


$DTBL: 


10000 


032272 


001750 




1000. 


032274 


000144 




100. 


032276 


000012 




10. 


032300 




$DBLK: 


.BLKU 



SEQ 0140 



*'0,R2 

#' ,R2 

R2,(R3)+ 

(R0) + 

R0.*10 

2$ 

8i 

R5.R2 
6i 

(SP)> 
9$ 

1(SP),-2(R3) 
(R3) 

(SPj*,R5 

(SP)*.R3 

(SP)*.R2 

(SP)>.R1 

(SP)*.RO 

.JOBLK 

^(SP),4(SP) 

(SP)*.(SP) 



MAKE THE BCD DIGIT ASCII 

MAKE IT A SPACE IF NOT ALREADY A DIGIT 

PUT THIS CHARACTER IN THE OUTPJT BJFFER 

JUST INCREMENTING 

CHECK THE TABLE INDEX 

GO DO THE NEXT DIGIT 

GO TO EXIT 

GET THE LSD 

GO CHANGE TO ASCIi 

WAS THE LSD THE FIRST NON-ZERO? 

BR IF NO 

YES- -SET THE SIGN FOR TYPING 

SET THE TERMINATOR 

POP STACK INTO R5 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO Rl 

POP STACK INTO RO 

NOW TYPE THE NUMBER 

ADJUST THE STACK 

RETURN TO USER 



4612 



.SBTTL TTY INPUT ROUTINE 
^NABL LSB 

♦SOFTWARE SUITCH REGISTER CHANGE ROUTINE. 

♦ROUTINE IS ENTERED FROM THE TRAP HANDLER. AND WILL 











:*UHEN OPERAT 
iCKSUR: CMP 


032310 


022737 


000176 


001140 


032316 


001074 






BNE 


032320 


105777 


146620 




TSTB 


032324 


100071 






BPL 


032326 


117746 


146614 




MOVB 


032332 


042716 


177600 




BIC 


032336 


022726 


000007 




CMP 


032342 


001062 






BNE 


032'j44 


123727 


001134 


000001 


CHPB 


032352 


001456 






BEQ 


032354 


104401 


033045 




TYPE 


032360 


104401 


033052 




$GTSWR: TYPE 


032364 


013746 


000176 




MOV 


032370 


104402 






TYPOC 


032372 


104401 


033063 




TYPE 


032376 


005046 






19$: CLR 


^32400 


005046 






CLR 


V 32402 


105777 


14f536 




7$: TSTB 


032406 


100375 






BPL 


032410 


117746 


146532 




MOVB 


032414 


042716 


177600 




BIC 


032420 


021627 


000025 




9$ : CMP 



#SUREG,SUR 
15* 
a*TKS 
15* 

a*TKB.-(SP) 
#tC17),(SP) 
*7,(SP5* 
15 i 

$AUT06.«1 
15$ 

JCNTLG 
.$MSUR 
SUREG, 



■(SF) 



, $MNEW 

-m 

3$TKS 
7$ 

a*TKB, 
#tC17) 
(SP). 



(SP) 
.(SP) 
-^5 



IS THE SOFT-SUR SELECTED? 
BRANCH IF NO 
CHAR THERE? 

IF NO. DON'T UAIT AROUND 

SAVE tHE CHAR 

STRIP-OFF THE ASCII 

IS IT A CONTROL G? 

NO. RETURN TO USER 

ARE UE RUNNING IN AUTO MODE? 

BRANCH IF YES 

ECHO THE CONTROL -G (tG) 

TYPE CURRENT CONTENTS 

SAVE SUREG FOR TYPEOUT 

GO TYPE- -OCTAL ASCIKALL DIGITS) 

PROMPT FOR NEW SUR 

CLEAR COUNTER 

THE NEW SUR 

CHAR THERE? 

IF NOT TRY AGAIN 

PICK UP CHAR 

MAKE IT 7-BIT ASCII 

IS IT A CONTROL-U? 



L .1 
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TTY INPUT ROUTINE 



032424 

032426 

032432 

032436 

032440 

032444 

032446 

032452 

032454 

032462 

032466 

032472 

032500 

032502 

032510 

032512 

032516 

032522 

032524 

032530 

032532 

032536 

032542 

032544 

032546 

032550 

032552 

032556 

032562 

032564 

032570 



032572 
032574 
032602 
032606 
032610 
032616 
032624 
032632 
032634 
032640 
032642 
032646 
032652 
032656 
032660 
032662 
032670 
032672 



001005 

104401 

062706 

000757 

021627 

001022 

005766 

001403 

016677 

062706 

104401 

123727 

001003 

012777 

000002 

004737 

021627 

002420 

021627 

003015 

042726 

005766 

001403 

006316 

006316 

006316 

005266 

056ul6 

000707 

104401 

000720 



011646 
016666 
105777 
100375 
117766 
042766 
026627 
001013 
105777 
100375 
117746 
042716 
022627 
001366 
000750 
026627 
001744 
026627 



033040 
000006 

000015 

000004 

000002 
000006 
001175 
001135 

000100 

031514 
000060 

000067 

000060 
000002 



000002 
17"'776 

001174 



000004 
146336 

146332 
177600 
OO0C04 

146304 

146300 
177600 
000021 



000004 
000004 



SEQ 0141 



146456 

000001 
146434 



20^ 
10$: 



11$: 
14$; 



15$: 
16$: 



17$: 



000002 



000004 
000004 
000023 



18$: 

.OSABL 

♦THIS 
*CALL 

* 
* 

iROCHR: 
1$: 



2$: 



BNE 
TYPE 
ADD 
BR 
CMP 
BNE 
TST 
BEQ 
MOV 
ADD 
TYPE 
CMPB 
BNE 
MOV 
RTI 
JSR 
CMP 
BLT 
CMP 
BGT 
BIC 
TST 
BEQ 
ASL 
ASL 
ASL 
INC 
BIS 
BR 

TYPE 
BR 
LSB 

ROUTINE 



10$ 

,$CNTLU 

#6,SP 

19i 

(SP).*15 
16$ 
4(SP) 
11$ 

2(SP}.aSUR 

*6.SF 

,$CRLF 

$INTAG.#1 

15$ 

#100.a$TKS 

PC^$TYPEC 

18$ 

(SP),#67 
18$ 

#60.(SP)* 
CSP) 

ill] 

2(SP) 

-2(SP).(SP) 

.$QUES 
^0$ 

WILL INPUT A 



RDCHR 

RETURN HERE 



BRANCH IF NOT 

YES. ECHO CONTROL-L (tU) 

IGNORE PREVIOUS INPUT 

LET'S TRY IT AGAIN 

IS IT A <CR>? 

BRANCH IF NO 

YES, IS IT THE FIRST CHAR? 

BRANCH IF YES 

SAVE NEU SUR 

CLEAR UP STACK 

ECHO <CR> AND <IF> 

RE ENABLE TTY KBD INTERRUPTS? 

BRANCH IF NOT 

RE -ENABLE TTY KBD INTERRUPTS 

RETURN 

ECHO CHAR 

CHAR < 0? 

BRANCH IF YES 

CHAR > 7? 

BRANCH IF YES 

STRIP-OFF ASCII 

IS THIS THE FIRST CHAR 

BRANCH IF YES 

NO, SHIFT PRESENT 

CHAR OVER TO MAKE 

ROOM FOR NEU ONE. 
KEEP COUNT OF CHAR 
SET IN NEU CHAR 
GET THE NEXT ONE 
TYPE ?<CR><LF> 
SIMULATE CONTROL -U 



SINGLE CHARACTER FROM THE TTY 



INPUT A SINGLE CHARACTER FROM THE TTY 
CHARACTER IS ON THE STACK 
WITH PARITY BIT STRIPPED OFF 



000021 
000140 



3$: 



MOV (SP),-(SP) 

MOV 4(SP5.2(SP) 

TSTB 3$TKS 

BPL 1$ 

MOVB S$TKB.4(SP) 

BIC #tC<l)7>.4(SP) 

CMP 4(SP),«3 

BNE 3$ 

TSTB 3$TKS 

BPL 2$ 

MOVB S$TKB.-CSP) 

BIC #tC17),(SP) 

CMP (SP)*,i21 

BNE 2$ 

BR 1$ 

CMP 4(SP).#$X0N 

BEQ 1$ 

CMP 4(SP).#140 



PUSH DOUN THE PC 

SAVE THE PS 

UAIT FOR 

A CHARACTER 

READ THE TTY 

GET RID OF JUNK IF ANY 

IS IT A CONTROL-S? 

BRANCH IF NO 

UAIT FOR A CHARACTER 

LOOP UNTIL ITS THERE 

GET CHARACTER 

MAKE IT 7-BIT ASCII 

IS IT A CONTROL-Q? 

IF NOT DISCARD IT 

YES. RESUME 

IS IT A RANDOM XON? 

BRANCH IF YES 

IS IT UPPER CASE? 



:RAN001 
iRANOOl 



il 
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SEQ 0142 



032700 002407 

032702 026627 000004 000175 

032710 003003 

032712 042766 000040 000004 

032720 000002 



4$: 
::**** 
;*THIS 
;*CALL 
:* 
:* 



BLT 4$ ;;BRANCH IF YES 

CMP 4(SP).*175 ;:IS IT A SPECIAL CHAR? 

BGT 4$ BRANCH IF YES 

BIC #40,4CSP) ;,MAKE IT UPPER CASE 

RTI i;GO BACK TO USER 

ROUTINE WILL INPUT A STRING FROM THE TTY 



RDLIN 

RETURN HERE 



4613 



032722 


010346 






ioni TM. 




032724 


012703 


033030 




1$ • 


MQU 


032730 


022703 


033040 




2$ • 


CMP 


032734 


101405 








BLQS 


032736 


104410 








RDCHR 

1 iiy Wl 111 


032740 


112613 








MOVB 


032742 


122713 


000177 




10$: 


CMPB 


032746 


001003 

V W X V W w 








BNE 


032750 


104401 


001174 




4$: 


TYPE 


032754 


000763 








BR 


032756 


111337 


033026 




3$: 


MOVB 


032762 


104401 


033026 






TYPE 


032766 


122723 


000015 






CMPB 

\0t II ill 


032772 


001356 








BNE 


032774 


105063 


177777 






CLRB 


033000 


104401 


001176 






TYPE 


033004 


012603 








MOV 


033006 


011646 








MOV 


033010 


016666 


000004 


000002 




MOV 


033016 


012766 


033030 


000004 




MOV 


033024 


000002 








RTI 


033026 


000 






9$: 


.BYTE 


033027 


000 








.BYTE 


033030 








niYIN: 


.BLKB 


033040 


136 


125 


015 


JCNTLU: 


.ASCIZ 


033043 


012 


000 








033045 


136 


107 


015 


JCNTLG: 


.ASCIZ 


033050 


012 


000 








033052 


015 


012 


123 


$MSUR: 


.ASCIZ 


033055 


127 


122 


040 






033060 


075 


040 


000 






033063 


040 


040 


116 


$MNEU: 


.ASCIZ 


033066 


105 


127 


040 




033071 


075 


040 


000 







R3. (SP) 
#$tTYIN.R3 
#$TTYIN*8.,R3 
4$ 

(SP)*,(R3) 
#177, (R3) 
3* 

.$QUES 

U 

(R3).9$ 

h5,(R3)* 
2$ 

-1(R3) 
,$LF 

JSP)*.R3 

4?SP5'2?S^) 
«TTy1n.4(SP) 

0 
0 
8. 

/tU/<15><12> 



INPUT A STRING FROM THE TTY 

ADDRESS OF FIRST CHARACTER UILL BE ON THE ST 

TERMINATOR UILL BE A BYTE OF ALL O'S 

SAVE R3 

GET ADDRESS 

BUFFER FULL? 

BR IF YES 

GO READ ONE CHARACTER FROM THE TTY 
GET CHARACTER 
IS IT A RUBOUT 
SKIP IF NOT 
TYPE A '?• 

CLEAR THE BUFFER AND LOOP 
ECHO THE CHARACTER 

CHECK FOR RETURN 
LOOP IF NOT RETURN 
CLEAR RETURN (THE 15) 
TYPE A LINE FEED 
RESTORE R3 

ADJUST THE STACK AND PUT ADDRESS OF THE 
FIRST ASCII CHARACTER ON IT 

RETURN 

STORAGE FOR ASCII CHAR. TO TYPE 
TERMINATOR 

RESERVE 8 BYTES FOR TTY INPUT 
CONTROL "U" 

CONTROL "G" 



ACK 



.SBTTL READ AN OCTAL NUMBER FROM THE TTY 

;*THIS ROUTINE UILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
; ♦CHANGE IT TO BINARY. 



033074 011646 

033076 016666 000004 000002 

033104 010046 

033106 010146 



:*CALL 

!* 

;* 

IrDOCT: MOV 
MOV 
MOV 
MOV 



RDOCT 

RETURN HERE 



(SP).-(SP) 
4(SP).2(SP) 
R0.-(§?) 
Rl.-(SP) 



READ AN OCTAL NUMBER 

LOU ORDER BITS ARE ON TOP OF THE STACK 

HIGH ORDER BITS ARE IN $HIOCT 

PROVIDE SPACE FOR THE 

INPvJT NUMBER 

PUSH RO ON STACK 

PUSH Rl ON STACK 



Nil 
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READ AN OCTAL NUMBER FROM THE TTY 



SEQ 0143 



4614 



033110 

033112 

033114 

033116 

033120 

033122 

033124 

033126 

033130 

03313? 

033134 

033136 

033140 

033142 

033146 

033150 

033152 

033154 

033160 

0i3164 

033166 

033^0 

033172 

033174 



010246 
104411 
012600 
005001 
005002 
112046 
001412 
006301 
006102 
006301 
006102 
006301 
006102 

042716 177770 
062601 
000764 
005726 

010166 000012 

010237 033174 

012602 

012601 

012600 

000002 

000000 



MOV 

1$: RDLIN 
MOV 
CLR 
CLR 

2i: MOVB 
BEQ 
ASL 
ROL 
ASL 
ROL 
ASL 
ROL 
SIC 
ADO 
BR 

3$: TST 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 

.UORD 0 
TRAP DECODER 



R2. (SP) 

(SP)*.R0 
Rl 
R2 

(R0)+.-(SP) 
3 $ 
Rl 
R2 
Rl 
R2 
Rl 
R2 

#tC7.(SP) 
(SP)+.R1 
2$ 

(SP) + 
R1.12(SP) 
R2,$HI0CT 
(Sli)*.R2 
(SP)*.R1 
(SP)t.RO 



;PUSH R2 ON STACK 

jREAO AN ASCIZ LINE 

:GET ADDRESS OF 1ST CHARACTER 

: CLEAR DATA UORD 

; PICKUP THIS CHARACTER 
:IF ZERO GET OUT 
:*2 

:*4 

:*8 

i STRIP THE ASCII JUNK 
;ADD IN THIS DIGIT 
;LOOP 

; CLEAN TERMINATOR FROM STACK 
:SAVE THE RESULT 



:POP STACK INTO R2 
:POP STACK INTO Rl 
;POP STACK INTO RO 
{RETURN 

;HIGH ORDER BITS GO 



HERE 



033176 010046 

033200 016600 000002 

033204 005740 

033206 111000 

033210 006300 

033212 016000 033232 

033216 000200 

033220 011646 

033222 016666 000004 000002 

033230 000002 



$HIOCT: 
.SBTTL 

♦THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
*G0 TO THAT ROUTINE. 

SAVE RO 

GET TRAP ADDRESS 
BACKUP BY 2 

GET RIGHT BYTE OF TRAP 
POSITION FOR INDEXING 
INDEX TO TABLE 
: :G0 TO ROUTINE 
GEmr MACRO 

MOVE THE PC DOWN 
MOVl THE PSW DOWN 
RESTOR"^ THE PSU 



JTRAP: MOV 

MOV 
TST 
MOVB 
ASL 
MOV 
RTS 

jsTHIS IS USE 
JtRAP2: MOV 
MOV 



RO.-(SP) 
2($P).R0 
-(RO) 
(RO).RO 
RO 

$TRPAD(R0).3O 
RO 

TO HANDLE THE 
(SP).-CSP) 
4(SP5.2(SP) 



RTI 

SBTTL TRAP TABLE 
♦THIS TABLE CONTAINS THE STARTING ADDRESSES OF 
*BY THE "TRAP" INSTRUCTION . 
ROUTINE 



033232 
033? 34 
03'236 
033c to 
0332-^2 
03324t 
033246 
033250 
033252 
033254 
033256 



033220 
031302 
031662 
031636 
031676 
032064 
032360 
032310 
032572 
032722 
033074 



iTRPAD: .WORD 
$TYPE 
$TYPOC 
$TYPOS 
$TYPON 
$TYPDS 
$GTSWR 
$CKSWR 
JRDCHfi 
$RDLIN 
$RDOCT 



JTRAP2 
.•CALL 
iCALL 
;CALL 
;CALL 
:CALL 
•.CALL 
:CALL 
;CALL 
sCALL 
:CALL 



=TYPE 

=TYPOC 

=TYPOS 

=TYPON 

=TYPDS 

=GTSWR 

=CKSWR 

=RDCHR 

=RDLIN 

=RDOCT 



TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 



; 104401 
104402 
104403 
104404 
104405 
.104406 
L04407 

104410) 
,104411) 

104^12) 



THE ROUTINES CALLED 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 

TYPE OCTAL NUMBER (NO LEADING ZEROS^ 

TYPE OCTAL NUMBER (AS PER LAST CAcl) 

TYPE DECIMAL NUMBER (WITH SIGN) 

GET SOFT-SMR SETTING 

TEST FOR CHANGE IN SOFT SWR 

TTY TYPtIN CHARACTER ROUTINE 

TTY TYPEIN STRING ROUTINE 

READ AN OCTAL NUMBER FROM TTY 
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POWER DOWN AND UP ROUTINES 



4615 



033260 
033266 
033274 
053276 
033300 
033302 
033304 
033306 
033310 
0*3314 
033320 
033326 
033330 



033332 
033^40 
033 j44 
033350 
053354 
033356 
033362 
033364 
033366 
033370 
033372 
033374 
033376 
033404 
033412 
033414 
033416 
033420 
033422 
033424 
033426 
033431 
033434 



4617 



012737 
012737 
010046 
010146 
010246 
010346 
010446 
010546 
017746 
010637 
012737 
000000 
000776 



012737 
013706 
005037 
005237 
001375 
012677 
012605 
C12604 
012603 
012602 
012601 
012600 
012737 
012737 
104401 
033426 
000002 
000000 
000776 
000000 
015 
117 
122 

000001 



033420 
000340 



145624 
033424 
033332 



053420 
033424 
033424 
033424 

145S56 



033260 
000340 



012 
127 
000 



000024 
000026 



SBTTL POWER DOWN AND UP ROUTINES 
.^DUER DOWN ROUTINE 



;PURDN: 



000024 



000024 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
HALT 
BR 



#$ILLUP.8#PWRVEC 
#340,a#f^WRVEC»2 
RO.-(SP) 
Rl.-(SPj 
R2.-(SP) 
R3.-(SP) 
R4. CSP) 
R5.-(SP) 
aSWR.-(SP) 
SP.$SAVR6 
*$PWRUP.8*PWRVEC 



:SET FOR FAST UP 
ARI0:7 

PUSH RO ON STACK 
PUSH Rl ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH R5 ON STACK 
PUSH 3SWR ON STACK 
SAVE SP 
:SET UP VECTOR 



-2 



::HANG UP 



jPOWER UP ROUTINE 



JPURUP: MOV 
MOV 



1$: 



000024 
000026 



120 
105 



$PURMG: 

$ILLUP: 

JSAVR6: 
$POUER: 



CLR 
INC 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TYPE 
.WORD 
RTI 
HALT 
BR 
0 

.ASCIZ 



.EVEN 
.END 



#$ILLUP.a*PURVEC 
$SAVR6,§P 
$SAVR6 
<SAVR6 
i$ 

:SP)«.9SUR 
SP)*.R5 
SP)*.R4 
SP)*.R3 
SP)*.R2 
SPh.Rl 
SPj* RO 

«$pur6n.s«purvec 

«340,3^URVEC*2 
$POUER 



.-2 

<15><12> "POWER" 



:SET FOR FAST DOWN 
6eT SP 

WAIT LOOP FOR THE TTY 
WAIT FOR THE INC 
OF WORD 

POP STACK INTO aSWR 
POP STACK INTO R5 
POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO Rl 
POP STACK INTO RO 
:SET UP THE POWER DOWN VECTOR 
;:^RI0:7 
; REPORT THE POWER FAILURE 
5 {POWER FAIL MESSAGE POINTER 



THE POWER UP SEQUENCE WAS STARTED 
BEFORE THE POWER DOWN WAS COMPLE'^E 
PUT THE SP HERE 



COKDDAC '■DJll-DA 


LLUSTFR CIAG 










■ wyvw 


APRIOR- 




yjuo ( •» 


APTC3U- 




A7A7 


APTENV= 




UjU I Ic 


APTSIZ= 






APTSPO- 






ASUREG' 






ATESTN= 




www 


AUNIT » 






AUSUR = 






AVECT1= 




•UwvvUi 


AVECT2= 






BA 






BA2 


Afd 3 




BCR = 






BCSR = 


APA s 




BOR 


Ar? 


^rnnriO? 


8IT0 - 






BITOO -' 




nnnnnn 


BITOl = 




nnnnnn 


BIT02 = 


Annul ft- 


fiAnnnfi 


BIT03 = 


ADitU1 1 - 


nnnnof) 

WVvvU 


6IT04 = 


Annul 




BITOS ^ 


Annul 


nnnnnn 

vv'vvvv 


BIT06 = 


Annu'd= 


nnnnnn 


BITOT = 


Annul 




BIT08 = 


Annup - 




BIT09 = 






BI^l = 


AnnuA z 


nr.nnnn 


BITIO = 


Annu'i I 




BITll = 


AnnuA r 


nnnonn 


BIT12 = 


Annu7 ^ 




BIT13 = 


AnnuM I 


nnnnnf, 


BIT14 = 


AnnuQ r 


www 


eiTi5 = 




nnnnnn 
wvuw 


BIT2 = 




nnnnnn 
www 


BIT3 = 


Am 


WHV J*T 


BIT4 = 


AFNU s 


000000 
wwuw 


BITS = 


ArNi/M z 


000000 
www 


BIT6 = 


AFATAI : 

n~ n 1 nL 


00 no no 

www 


BIT? = 


Ai 1 no 


Uv Jl JC 


BITS = 




ooooon 

www 


BIT9 - 


AHAnR?z 


nnoooo 

UvWW 


BPTVEC= 


AM ADR ^: 


000000 
www 


BTEXP 




000000 
www 


BTRES 


n* iHi 1 * 


no 00 00 

wwuv 


CCHPAS 


n' ir IOC 


onnooo 

www 


CCR ^ 


AHf H^^a 


000000 

WUvW 


CKSUR = 


AMAH^s 


no on 00 

www 


COUNT 


AMQrAns 


nonoon 


CPEREG= 


AMQfj r,- 


00 no no 

www 


CR 


AM^^Tls 


nnoooo 

www 


CRLF = 


AHTYP1» 


000000 


CSRl 


Af<T rP2« 


000000 


CSR12 


AMTfP3» 


000000 


CSR2 


AHTYP4* 


000000 


CSR22 


APASS ' 


000000 


CURAOD 



MACRO V05 03 "jesday 07 .an 8^ 



000000 


CUROAT 


004042 


000040 


DATA 


002304 


OOOCOl 


DATA2 


002332 


000200 


DATVER 


026740 


000100 


)ATVFR 


026722 


000000 


)AT1 


026752 


000000 


)COUNT 


004024 


000000 


)DISP = 


177b70 


000000 


)ELAY 


026772 


000000 


)ETFPA 


027726 


000000 


)H1 


023514 
024455 


002300 


)H10S 


002326 


)ni5 


024507 


177S24 


)H134 


024564 


177S20 


)H24 


024000 


177S24 


)H27 


024044 


000001 


)H4 


023541 


000001 


)H41 


024107 


000002 


)H43 


024160 


000004 


)H47 


024260 


000010 


)HS 


023626 


000020 


)H65 


024345 


000040 


)H7 


023725 


000100 


)H72 


024411 


000200 


)ISPLA 


001142 


000400 


)ISPRE 


000174 


001000 


WARD 


026312 


A A A A A 

000002 


)^|ATRN 


026230 


002000 


)SUR = 


177S70 


004000 


)T1 


024702 


010000 


)T10S 


02S160 


020000 


)T115 


025170 


040000 


)T130 


025204 


100000 


)T134 


025212 


000004 


)T14 


024750 


000010 


)T17 


024762 


000020 


)T24 


024774 


000040 


)T27 


025004 


000100 


)T35 


025016 


A A A A A A 

000200 


)T4 


024710 


000400 


)T41 


02S030 


00 1000 


)T43 


025040 


000014 


)T47 


025054 


003100 


)TS 


024722 


003110 


3T50 


025066 


003030 


)T51 


A A P a A A 

025100 


177746 


DT52 


025112 


104407 


)T64 


025124 


A A ^ A A A 

003120 


)T6S 


025136 


177766 


)T7 


024736 


AAAA 1 C 

000015 


JT75 


025146 


000200 


lEPAS 


003032 


002274 


:mtsav 


004054 


002322 


:mtvec= 


000030 


002276 


:m 


017151 


002324 


:riioo 


020036 


004050 


EMIOI 


020074 
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SEQ 0145 



EM102 


020127 


EM73 


017626 


EM103 


020211 


EM 74 


017652 


EM 104 


020264 


EM75 


017703 


EMIOS 


020334 


EM76 


017734 


EM106 


020407 


EM77 


020004 


EM107 


020465 


ERR 


026720 


EMllO 


020521 


ERRCNT 


003020 


EMlll 


020563 


ERRFP 


026716 


EM112 


020641 


ERROR 


104000 


EM113 


020724 


ERRVEC= 


000004 


EM114 


021010 


ertype 


025230 


EM123 


021031 


EXPOAT 


004026 


EM124 


021063 


FLAG 


003026 


EM 12 5 


021155 


FLO 


003062 


EM126 


021214 


FLOAT 


003052 


EM127 


021251 


FPVEC - 


000244 


EM130 


021313 


FSTADO 


004044 


EM131 


021340 


GOODAD 


003016 


EM132 


021370 


GTSWR - 


104406 


EM13S 


021426 


HITMIS= 


177752 


EM136 


021464 


HT 


000011 


EM137 


021526 


INIMEM 


027174 


EM140 


021573 


INITMM 


025446 


EM141 


021664 


INQ22 


015714 


EM142 


021747 


IOTVEC= 


000020 


EM143 


022040 
022113 


JllFLT 


027734 


EM144 


KDPARO= 


172360 


EMMS 


022170 


K0PAR1= 


172362 


EM146 


022236 


KDPAR2= 


172364 


EM117 
EMIE ) 


022301 


KDPAR3= 


172366 


022356 


KDPAR4= 


172370 


EMISI 


022437 


KDPAR5= 


172372 


EM152 


022505 


KDPAR6= 


172374 


EM153 


022567 


K0PAR7- 


172376 


EM1S4 


022647 


KDPDRO= 


172320 


EM155 


022734 


KDPDR1= 


172322 


EM156 


023007 


KDPDR2= 


172324 


EM1S7 


023061 


KDPDR3= 


172326 


EM160 


023127 


KDPDR4= 


172330 


EM161 


023151 


KDPDR5= 


172332 


EM162 


023211 


K0P0R6= 


172334 


EM163 


023254 


K0P0R7= 


172336 


EM164 


023320 


KIPARO= 


172340 


EM165 


023377 


KIPAR1= 


172342 


EM166 


023446 
017205 


l<IPAR2= 


172344 


EM2 


KIPAR3= 


172346 


EM3 


017217 


KIPAR4= 


172350 


EM51 


017231 


KIPAR5= 


172352 


EM54 


017231 


KIPAR6= 


172354 


EM56 


017267 


KIPAR7* 


172356 


EM57 


017313 


KIPDRO= 


172300 


EM61 


017345 
017374 


KIPDR1= 


172302 


EM63 


KIPDR2= 


172304 


EM64 


017425 


KIPDR3= 


172306 


EM6S 


017464 


KIPDR4= 


172310 


EM71 


017534 


KIPDR5= 


172312 


EM72 


017S70 


KIPDR6= 


172314 
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Symbol table 



KIPDR?- 


I"*2316 


PR6 

PR7 


000300 


SEQ 


003072 


KMCR 


r7~34 


000340 
177^76 
177776 


SETMHU 


027060 


lOPARS 


025610 


PS 


SIMGOA 


002312 


lEDlNT 


025640 


psu 


SIPARO= 


172240 


002314 


PUDSEQ 


004032 


SIPAPl- 


172242 


000012 


PURVEC= 


000024 


SPAR2 


172244 


LKS 


177546 


Q22EN 


003002 


SIPAR3= 


172246 


Li.'SFL 


002340 


Q22INT 


026210 


SIPAR4= 


172250 


.KSINT 


025722 


Q22SIZ 


025730 


SIPAR5- 


172252 


lOOP 


005060 


RAHPAR 


025664 


SIPAR6= 


172254 


LOOP IN 


003154 


R8UF = 


177562 


SIPAR7= 


172256 


wOuAOD 


003014 


RBUfl = 


176502 


SIPDRO- 


172200 


lstaod 


004046 


RCOUNT 


002316 


SIPDR1= 


172202 


naireg= 


r7750 


RCSR = 


177560 


SIP0R2- 


172204 


iask 


003160 
172100 


RCSRl = 


176500 


SIPDR3- 


172206 




RDCHR - 


104410 


SIPDR4- 


172210 
172212 


1CRTAG 


003050 


RDLIN = 


104411 


SIPDR5= 


MMRC - 


r''572 


RDOCT = 


104412 


SIP0R6 


172214 


•fIRl 


177574 
r7576 
172516 


RECDAT 


004030 


SIP0R7= 


172216 




RECDST 


003142 


SLENO 


015262 




RECFtC 


003122 


SLOCOO 


003004 


in J 


026412 


RECST 


003132 


SLOCOl 


003006 


mhuTRP 


026564 


RESVEC= 


000010 


SPS 


003074 


MMvEC ^ 


000250 


RITEDA 


004036 


SPSJ 


003076 


MSER = 


177744 


RRMEM 


027532 


SRO 


177572 


NATREG= 


177520 


RUTMEM 


027360 


SRI 


177574 


NEUADD 


003024 


R6 -<000006 


SR2 = 


177576 


NEUOAT 


004040 


R7 =<000007 


SR3 


172516 


NOABRT 


031032 


SAVBR 


002346 


STACK ' 


001100 


NOSlJ 


015264 
026642 


SAVHRO 


003040 


START 


004054 


NOTOK 


SAVMRl 


003042 


STBOT = 


001000 


NULL = 


A A A A A M 

000000 


SAVMR2 


C03044 


STKLMT- 


177774 


NXTST 


011036 


SAVPCR 


002344 


SUR 


001140 


OK 


026620 


SAVPOS 


003156 


SUREG 


000176 


OKI 


026646 


SAVSUP 


003034 


SUTSEL 


016302 


0N0Q22 


026154 


SAVSUR 


003046 


SUO 


000001 


°AR 


026534 


SAVTIM 


003012 


SUOO - 


000001 


PARABT 


AAA A ^ ^ 

004052 


SAVUSE 


003036 


SUOl ' 


000002 


PARENO 


006776 


SAV30 


004142 


SU02 = 


000004 


PARINT 


006770 


SAV32 


004144 


SW03 = 


000010 


PARPAT 


A A ^ AAA 

003010 


SCOPE 


000004 


SW04 = 


000020 


PARI 


026536 


SDPARO= 


172260 


SU05 = 


A A A A A A 

000040 


PATT 


005724 


SDPAR1= 


172262 


SU06 - 


000100 


PCR ' 


177522 


SDPAR2= 


172264 


SU07 = 


000200 


PDR 


026512 


SDPAR3= 


172266 


SU08 


000400 


PDPl 


026514 


SDPAR4= 


172270 


SU09 = 


001000 


PIP * 


177772 


SDPAR5= 


172272 


SUl 


000002 


PIRQ = 


177(72 


SDPAR6- 


172274 


SUlO = 


002000 


OT Aft T 

PIRQT 


016242 


SDPAR7= 


172276 


sun = 


004000 


PIRQVE* 


A A A A A A 

000240 


SDPDRO= 


172220 


SU12 = 


010000 


rULT * 


ItiUOUl 


SDP0R1= 


172222 


CM 1 7 


A A AAA 

020000 


PPO - 


000000 


SDPDR2- 


172224 


SU14 = 


040000 


PRl » 


000040 


SDPDR3= 


172226 


SU15 = 


100000 


PR2 ' 


000100 


SDPDR4= 


172230 


SU2 = 


000004 


PR3 - 


000140 


S0PDR5- 


172232 


SU2 = 


000010 


' PR4 


000200 


SDPDR6- 
SDPDR7 


172234 


SU4 


000020 


PR5 - 


000240 


172236 


SU5 = 


000040 
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SEQ 014^ 



SU6 - 

SU7 

SU8 

SU9 - 

TmBI 

TABlO 

TABU 

TAPUA 

TAB12 

TAB13 

TAB13B 

TAB14 

TAB15 

TAB16 

TAB17 

TAB18 

TAB2 

TAB21 

TAB22 

TAB23 

TAB24 

TAB25 

TAB26 

TAB27 

TAB28 

TAB29 

TAB29A 

TAB3 

TAB30 

TAB31 

TAB32 

TAB33 

TAB34 

TAB4 

TAB40 

TAB41 

TAB42 

TAB43 

TAB45 

TAB46 

TAB47 

TAB47A 

TAB48 

TAB49 

TAB5 

TAB5A 

TAB6 

TAB6A 

TAB7 

TABS 

TAB9 

TBITVE= 

TCOUNT 

TE1P 

TIMOUT 

TKVEC = 

TOLT 



000100 
000200 
000400 
001000 
003234 
003364 
003374 
003404 
003414 
003424 
003434 
003444 
003454 
003464 
003474 
003504 
003244 
003514 
003524 
003534 
003544 
003554 
003564 
003574 
003604 
003614 
003624 
003254 
003634 
003644 
003654 
003664 
003674 
003264 
003704 
003714 
003724 
003734 
003744 
003754 
003764 
003774 
004004 
004014 
003274 
003304 
003314 
003324 
003334 
003344 
003354 
000014 
002320 
002740 
003000 
000060 
026402 



TPVEC = 

TRAPVE= 

TRPFLG 

TRTVEC= 

TSTADD 

TSTLOC 

TSTl 

TSTIO 

TSTll 

TST12 

TST13 

TST14 

TST15 

TST16 

TST17 

TST2 

TST20 

T3T21 

TST22 

TST23 

TST24 

TST25 

TST26 

TST27 

TST3 

TST30 

TST4 

TST5 

TST6 

TST7 

TYPDS - 

TYPE = 

TYPOC = 

TYPON = 

TYPOS = 

UOPARO= 

U0PAR1= 

U0PAR2= 

U0PAR3- 

U0PAR4= 

W)PAP5= 

UDPAR6= 

U0PAR7= 

UOPDRO- 

UDPDR1= 

U0PDR2- 

UDP0R3= 

UDPDR4= 

UDPDR5= 

U0PDR6= 

U0PDR7= 

UFDFLG 

UFDSET= 

UIPARO= 

UIPAR1= 

UIPAR2= 

UIPAR3= 



000064 
000034 
02d714 
000014 
003022 
003162 
005060 
010042 
011036 
011230 
011534 
011722 
012052 
012244 
012436 
005332 
012772 
013144 
013724 
014452 
014766 
015266 
015502 
015772 
005520 
016244 
005742 
006156 
006776 
007522 
104405 
104401 
104402 
104404 
104403 
177660 
177662 
177664 
177666 
177670 
177672 
177674 

177676 
177620 
177622 
177624 
177626 
177630 
177632 
177634 
177636 
004146 
000001 
177640 
177642 
177644 
177646 
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Symbol taole 



.IPAR4 
JIPAR5- 
UIPAR6- 
"PAR7- 
PDRO- 
PDRl- 
P0fi2» 
P0fi3' 
LIP0R4- 
LIP0R5- 
UIP0R6' 
JIP0R7- 
UQUIET 
VIREOP 
VHKOR 
vQBEl 

VQPRl 
VQPR2 
UC 
WC2 

ULOTRP 

y9UF - 

XBUFl 

XCSR - 

XCSRl - 

JAPTHO 

$ATYC 

$ATY1 

$ATY3 

JATY4 

$AUTOe 

»BASE 

(BDADR 

$BDOAT 

$BELL 

SCOUl 

)C0U2 



17^650 

177652 

177654 

177656 

177600 

177602 

177604 

177606 

177610 

177612 

177614 

177616 

004150 

016256 

004152 

002306 

002334 

002310 

002336 

002302 

002330 

026704 

17756f^ 

17650© 

177564 

176504 

000232 

031060 

031034 

031042 

031052 

001134 

001254 

001122 

001126 

001170 

001260 

001262 



$CHARC 

$CKSUR 

$CMTAG 

$CM3 = 

$CM4 - 

JCNTLG 

$CNTLU 

$CPUOP 

$CRLF 

$DBLK 

$DOUO 

$D0U1 

$DDW10 

JDOWll 

$00W12 

$D0U13 

$DDU14 

$D0U15 

$DDW2 

$DDU3 

$DDU4 

$0DU5 

$DDU6 

$0DU7 

$0DU8 

$00U9 

JDEVCT 

$DEVM 

$DOAGN 

$DTBL 

$ENDAO 

$ENCCT 

$ENDMG 

$ENULL 

$ENV 

JENVM 

JEOP 



031632 
032310 
001100 
000000 
000002 
033045 
033040 
001226 
001175 
032300 
001264 
001266 
001310 
001312 
00131^ 
001316 
001320 
001322 
001270 
001272 
001274 
001276 
001300 
001302 
001304 
001306 
001210 
001256 
030124 
032270 
030114 
030062 
030133 
030130 
001220 
001221 
030014 



$EOPCT 

$ERFLG 

$ERMAX 

$ERROR 

$ERRPC 

$ERRTB 

$ERTTL 

JESCAP 

$ETABL 

$E^ENO 

JFATAL 

$FFLG 

$FILLC 

$FILLS 

$GDA0R 

$GDDAT 

$6ET42 

$GTSUR 

$H0 = 

$HIBTS 

$HIOCT 

JICNT 

$ILLUP 

JINTAG 

$ITEttB 

JLF 

$LFLG 

$LPADR 

$LPERR 

JMAORl 

$MADR2 

$HADR3 

$nA0R4 

mil 
mnsi 

$riAMS2 

mnsi 



030054 
001103 
001155 
030452 
001116 
001324 
001112 
001166 
001220 
001324 
001202 
031300 
0011S6 
001155 
001120 
001124 
030104 
032i60 
000001 
000232 
033174 
001104 
033420 
001135 
001114 
001176 
031277 
001106 
001110 
001232 
001236 
001242 
001246 
001200 
001230 
001234 
001240 



. ABS. 033436 
000000 
Errors detected: 



000 (RU.I.GBL.ABS.OVR) 

001 (RU.I.LCL.REL.CON) 

0 



Assembler stat'stics 



Work f le reads: 403 

Uori< file wr'tes: 308 

Size of work f le: 55224 Uords 

S ze of core pool: 19684 Words 

Operating system: RSX-llM/PLUS 



: 216 Pages) 
75 Pages) 
[Under VAX /VMS) 



Elaosed t.me: 00:04:18.08 

:OKDDAO.CO'<DDAO/-SP=ORION. MLB/ML. COKDDAO.r'^C/DSrGBL 
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SEQ 0147 



$MAMS4 


001244 


$SUREG 


001222 


snBADR 


000234 


$SWR^«(* 


000300 


$MFLG 


031276 


$TESTN 


001204 


$HNEU 


033063 


$TIHES 


001164 


$HSGAD 


001214 


JTKB 


001146 


$MSGLG 


001216 


$TKS 


001144 


JMSGTY 


001200 


$TnPo 


001160 


$t1SUR 


033052 


$TMP1 


001162 


$MTYP1 


001231 


$TN * 


000031 


$MTYP2 


001235 


$TPB 


001152 


$MTYP3 


001241 


JTPFLG 


001157 


$t1TYP4 


001245 


$TPS 


001150 


$t1XCNT 


030450 


$TRAP 


033176 


$NULL 


001154 


$TRAP2 


033220 


$NUTST= 


000000 


$TRP = 


000013 


$OCNT 


032060 


$TRPAD 


033232 


$010DE 


032062 


$TSTH 


000236 


$OVER 


030426 


JTSTMi 


001102 


$PASS 


001206 


$TTYIN 


033030 


$PASfM 


000240 


$TYPOS 


032064 


$POUER 


033426 


$TYPE 


031302 


$PURDN 


033260 


$TYPEC 


031514 


$PURhG 


033414 


JTYPEX 


031634 


$PURUP 


033332 


$TYPOC 


031662 


$QUES 


001174 


$TYPON 


031676 


$RDCHR 


032572 


$TYPOS 


031636 


$RDLIN 


032722 


$UNIT 


001212 


$RDOCT 


033074 


$UNITM 


000242 


$ROSZ = 


000010 


$USUR 


001224 


$RTNAO 


030126 


JVECTl 


001250 


$SAVR6 


033424 


JVECT2 


001252 


$SCOPE 


030150 


JXOFF = 


000023 


$SETUP= 


000137 


$XON = 


000021 


$STUP = 


177777 


$XTSTR 


030170 


$SVLAD 


030372 


$$GET4= 


000000 


$SVPC = 


000232 


$0FILL 


032061 


$SUR -- 


167400 


.iX = 


000232 



